copiar dados de uma pasta de trabalho do Excel aberta para outra pasta de trabalho aberta

Question

Eu tento copiar dados entre duas pastas de trabalho que já existem, mas não funcionou. Eu não sei escrever um código sem abrir dois arquivos toda vez que eu executar a macro.

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