Boa tarde!!

De uma forma genérica, vc não precisa de um arquivo a mais para a copia, eu tenho dezenas de postagens que fazem o que vc deseja, use a pesquisa do fótum!

Att

Se entendi, você quer :
Arquivo Destino - é onde será executado a macro e receberá os dados do arquivo Origem.

Se for isto, no arquivo Destino utilize a rotina abaixo, lembrando que tem de ajustar o nome do arquivo de Origem "PlanOrigem.xlsx", e como o arquivo destino já está aberto, definimos utilizando "ThisWorkbook" :

Sub fncMauro()
    Dim wkbOrigem As Excel.Workbook
    Dim wksOrigem As Excel.Worksheet
    Dim wkbDest As Excel.Workbook
    Dim wksDest As Excel.Worksheet
    Dim lngLast As Long
        
    'Definimos o Arquivo que esta aberto e contem a rotina
    Set wkbDest = ThisWorkbook
    Set wksDest = Worksheets("Plan1")
      
    'Abre pastas de trabalho e planilhas.
    'Altere os caminhos e nomes de planilhas para adequar a seu caso.
    Set wkbOrigem = Workbooks.Open("C:UsersDesktopPlanOrigem.xlsx")
    Set wksOrigem = wkbOrigem.Worksheets("Plan2")
     
    'Descobre a última linha da planilha de destino
    With wksDest
        lngLast = .Cells(.Rows.Count, "A").End(xlUp).Row + 1
    End With
     
    wksOrigem.Range("A6:B250").Copy wksDest.Cells(lngLast, "A")
      'Se quiser colar valores:
      'wksOrigem.Range("A6:B250").Copy
      'wksDest.Cells(lngLast, "A").PasteSpecial Paste:=xlPasteValues
     
    wkbOrigem.Close SaveChanges:=False
    wkbDest.Close SaveChanges:=True
    
End Sub

Faça os testes e veja se é isto.

Muito obrigado pela ajuda, Mauro!
Funcionou perfeitamente.
Obrigado!