Я пытаюсь скопировать данные между двумя книгами, которые уже существуют, но это не сработало. Я не знаю, как написать код, не открывая два файла каждый раз, когда я запускаю макрос.
Sub CopyRangeToAnotherSheet()
Dim wbTarget As Workbook
Dim wbThis As Workbook
With Application
.ScreenUpdating = False
.EnableEvents = False
End With
Set wbThis = ActiveWorkbook
Set wbThis = Workbooks.Open("C:\...\WB.xlsx")
Sheets("Trial Balance").Range("B9:H62").Copy
Set wbTarget = ThisWorkbook
wbTarget.Sheets("Balance Sheet").Range("CK5").PasteSpecial Paste:=xlPasteValues
End Sub