Macro para copiar e colar várias planilhas em somente uma aba

Leandro Prezoto de Almeida · 14 de junho de 2016

Boa tarde!

Preciso fazer uma macro para copiar e colar relatórios de várias planilhas em uma planilha matriz.

Exemplo: extrai vários relatórios diários de um sistema, pois não consigo extrair somente 1 devido ao tamanho. São mais o menos 20 relatórios com o titulo de 1 à 20.

Fiz a macro abaixo, porém para cada planilha, e gostaria de saber se consigo fazer um macro menor com a mesma ou outra linguagem.

Segue exemplo da macro:

Sub TESTE()
'
' TESTE Macro
'

'
Workbooks.Open Filename:= _
"P:\Transporte\Área Comum Operacional Transporte\TRANSPORTE 2016\Premiação\base dados\Velocidade\Maio 2016\1.csv"
Range("B8:M8").Select
Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
Selection.Copy
Windows("Pasta2").Activate
ActiveSheet.Paste
Selection.End(xlDown).Select
Range("B1").Select
Selection.End(xlDown).Select
Range("A1048576").Select
Selection.End(xlUp).Select
Windows("1.csv").Activate
Application.CutCopyMode = False
ActiveWindow.Close


Workbooks.Open Filename:= _
"P:\Transporte\Área Comum Operacional Transporte\TRANSPORTE 2016\Premiação\base dados\Velocidade\Maio 2016\2.csv"
Range("B8:M8").Select
Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
Selection.Copy
Windows("Pasta2").Activate
ActiveSheet.Paste
Selection.End(xlDown).Select
Range("B1").Select
Selection.End(xlDown).Select
Range("A1048576").Select
Selection.End(xlUp).Select
Windows("2.csv").Activate
Application.CutCopyMode = False
ActiveWindow.Close



End Sub