Macro copiar varios arquivos em uma planilha

[Thiago Atanazio]

Estou tentando fazer uma macro que copie o conteúdo de diversas planilhas

tenho 12 arquivos,

 

gestor1.xlsx

gestor2.xlsx

gestor3.xlsx

...

 

Todas possuem as mesmas colunas, mas numero de linhas varia, inclusive pode incluir novas

a primeira linha sempre é cabeçalho, não vai

 

 

estava tentando usando essa aqui, mas sem sucesso

só executei o ctrl+c ctrl+v e colei na macro

Sub Abrir_Copiar_Colar()Dim FSO As ObjectDim Pasta As StringDim Planilha As ObjectDim OpenBook As StringSet FSO = CreateObject("Scripting.FileSystemObject")Pasta = "C:\TEMP" 'Pasta com as planilhas que serão abertas e copiadasApplication.Calculation = xlCalculationManualApplication.ScreenUpdating = FalseFor Each Planilha In FSO.GetFolder(Pasta).FilesIf InStr(1, Planilha, ".xls") = 0 Then GoTo PRÓXIMOWorkbooks.Open (Planilha)OpenBook = ActiveWorkbook.Name'Seu código para copiarWindows(ThisWorkbook.Name).Activate'Seu código para colarApplication.CutCopyMode = FalseWorkbooks(OpenBook).Close FalsePRÓXIMO:NextApplication.ScreenUpdating = TrueMsgBox "Dados Copiados com Sucesso!", vbInformation, "Aviso"Application.Calculation = xlCalculationAutomaticEnd Sub

[Basole]

Veja este modelo lhe atende: 

 

https://www.sendspace.com/file/d8xpx5