Copiar e colar dados de várias planilhas

[Alefragoso]

Eu tenho um planilha, que está no arquivo Geral.xls. Esse arquivo Geral.xls, tem uma planilha chamada plan1, que vai receber dados de várias outras planilhas de arquivos diferentes

( jose.xls,  arnaldo.xls, etc...).

Eu precisaria de um código que fizesse a cópia desses dados para a planilha plan1 dentro do arquivo geral.xls.

Alguém teria alguma idéia de código?

Estou usando o código abaixo:

Sub Importar()

  Dim wkbOrigem As Excel.Workbook
  Dim wksOrigem As Excel.Worksheet
  Dim wkbDest As Excel.Workbook
  Dim wksDest As Excel.Worksheet
  Dim lngLast As Long
  
  'Abre pastas de trabalho e planilhas.
  'Altere os caminhos e nomes de planilhas para adequar a seu caso.
  Set wkbOrigem = Workbooks.Open("C:\Users\getronics.fragoso\Perossi\Amaury - Planilha de Reembolso.xlsb")
  Set wksOrigem = wkbOrigem.Worksheets("Relatorio de despesas")
  Set wkbDest = Workbooks.Open("C:\Users\getronics.fragoso\teste - Reembolso 2º Ciclo Setembro_SDOSS.xlsm")
  Set wksDest = wkbDest.Worksheets("Consolidado")
  
  'Descobre a última linha da planilha de destino
With wksDest
    wksDest.Range("b1").Select
    wksDest.Range("b1").End(xlDown).Offset(1, 0).Select => mas nessa linha está dando erro de execução 9

End With
  
'Range("e1").Select
'Range("e1").End(xlDown).Offset(1, 0).Select
'ActiveCell.Value = Me.cbologmein
'ActiveCell.Offset(1, 0).Activate
  
  
  wksOrigem.Range("A4:Q250").Copy
  wksDest.Range("b1").PasteSpecial Paste:=xlPasteValues
  
  wkbOrigem.Close SaveChanges:=False
  wkbDest.Close SaveChanges:=True

End Sub