Palestrin

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 ideia 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