No idea on how to rectify this problem

Sub Test()
Dim rng As Range
Dim FirstEmptyRow As Long
Dim FirstEmptyCol As Integer

With ActiveSheet.PageSetup
Set rng = Range(.PrintArea)
End With

FirstEmptyCol = rng.Cells(rng.Cells.Count).Column + 1
FirstEmptyRow = rng.Rows.Count + rng.Cells(1).Row

Range(Cells(1, FirstEmptyCol), Cells(1, 256)).EntireColumn.clear
Range(Cells(FirstEmptyRow, 1), Cells(Rows.Count, 1)).EntireRow.clear
End Sub

; $rng is to obtain the area of Printarea
$rng = $oExcel.Range($oExcel.ActiveSheet.PageSetup.PrintArea)

$FirstEmptyCol = $rng.Cells($rng.Cells.Count).Column + 1
$FirstEmptyRow = $rng.Rows.Count + $rng.Cells(1).Row

$oExcel.Range($oExcel.Cells(1, $FirstEmptyCol), $oExcel.Cells(1, 256)).EntireColumn.Clear
$oExcel.Range($oExcel.Cells($FirstEmptyRow, 1), $oExcel.Cells($oExcel.Rows.Count, 1)).EntireRow.Clear