Excel VBA Макросы: Копирование данных в другой файл.

[Посетитель]

Есть 2 файла, оба открыты. Нужно из одного листа в файле А скопировать все данные в определенный лист файла В.
Я смогла справиться с копированием внутри файла:

Sub Macro1()
Sheets("Sheet2").UsedRange.Offset(1, 0).Copy Worksheets("Sheet1").[A1].End(xlDown)(2)
End Sub

А вот скопировать в другой файл не могу.

[Администратор]

Sub Macro1()

    Dim sh_src As Worksheet, sh_res As Worksheet
   
    ' Присвойте имена листам.
        ' sh_src - откуда надо скопировать.
        ' sh_res - куда надо скопировать.
    Set sh_src = Workbooks("Имя файла с расширением").Worksheets("Имя листа")
    Set sh_res = Workbooks("Имя файла с расширением").Worksheets("Имя листа")
   
    ' Копирование.
    sh_src.usedrange.Offset(1, 0).Copy sh_res.[A1].End(xlDown)(2)
   
End Sub

[Посетитель]

Ура! Огромное Спасибо!