Shouldn't this line
beLastRow = appExcel.Cells(1, appExcel.Row.Count).End(appExcel.xlDown).Row
The row count is in the column parameter, and of course xlUp should be used.LastRow = appExcel.Cells(appExcel.Rows.Count, 1).End(appExcel.xlUp).Row
EDIT: also Rows.Count