вне диапазона при копировании данных из одной рабочей книги в другую

Question

У меня есть макрос, в который я копирую данные из одной рабочей книги в другую. Когда я пытаюсь изменить ячейку вставки, я получаю сообщение об ошибке «Приложение определено или Объект определено». Есть идеи?

Option Explicit

Sub ImportData_Click2()
    Dim objExcel2 As Object, arr As Variant

    Set objExcel2 = CreateObject("Excel.Application")
    ' open the source workbook and select the source sheet
    With objExcel2.Workbooks.Open("C:\Users\Macro.xlsm")
        ' copy the source range to variant array
        arr = .Worksheets("Copy").Range("A:P").Value
        ' close the source workbook
        .Close savechanges:=False
    End With

    ' select current workbook and paste the values
    ThisWorkbook.Worksheets("Sheet1").Range("A50").Resize(UBound(arr, 1), UBound(arr, 2)) = arr

    ' close the source application instance
    objExcel2.Quit
    Set objExcel2 = Nothing

    ActiveWorkbook.Save

End Sub