Ошибка времени выполнения '424': ошибка объекта требуется при использовании ThisWorkbook

Question

Я получаю Run-time error '424': Object Required ошибку с кодом ниже.

Sub GetData()

ThisWorkbook.Worksheets(1).Range("A" & Rows.Count).End(xlUp).Offset(1).Row.Value = ActiveWorkbook.Name
ThisWorkbook.Worksheets(1).Range("B" & Rows.Count).End(xlUp).Offset(1).Row.Value = ActiveWorkbook.Worksheets(2).Cells(Rows.Count, "A").End(xlUp).Row

End Sub

Answer 1

Избавиться от .Row - возвращает номер строки, а не ссылку на ячейку

Sub GetData()
    With ThisWorkbook.Worksheets(1)
        .Range("A" & Rows.Count).End(xlUp).Offset(1).Value2 = ActiveWorkbook.Name
        .Range("B" & Rows.Count).End(xlUp).Offset(1).Value2 = ActiveWorkbook.Worksheets(2).Cells(Rows.Count, "A").End(xlUp).Row
    End With
End Sub