Есть 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
Ура! Огромное Спасибо!