Макрос VBA не может найти последнюю использованную ячейку с ActiveCell

Я хотел бы скопировать несколько значений из одной (src) книги в мою книгу (dst), найдя последнюю непустую ячейку.

В моем случае скопировать копию работает нормально, пока в рабочей книге src нет записи.

Результат моего макроса выглядит так:

Header - |email |Name |origin 1.row - |email3 |Name2 |CH3 2.row - |email2 |empty |ch2 

Я ожидал:

 Header - email |Name |origin 1.row - email3 |x |CH3 2.row - email2 |Name2 |ch2 

Мой кодовый блок:

 Workbooks.Open (Filepath & MyFile) Range("A2").Copy ActiveWorkbook.Close savechanges:=False erow = Sheet1.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row ActiveSheet.Paste Destination:=Worksheets("AP217").Range(Cells(erow, 1), Cells(erow, 1)) If ActiveCell.Value = "" Then ActiveCell.Value = "x" End If 

Было бы здорово, если бы кто-нибудь мог посоветовать.

ура

 erow = Sheet1.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row On Error Resume Next ' ADD THIS LINE ActiveSheet.Paste Destination:=Worksheets("AP217").Range(Cells(erow, 1), Cells(erow, 1)) On Error GoTo 0 ' ADD THIS LINE -- this cancels the "Resume next", just in case...