O código VBA abaixo escrito ajuda você a copiar dados de todas as planilhas da pasta de trabalho ativa de uma só vez para uma nova planilha. Mas lembre-se de que esse código funcionará corretamente quando todas as planilhas tiverem a mesma estrutura de dados, o mesmo número de colunas e linhas na mesma.
Sub CommandButton1_click()
Dim J As Integer
On Error Resume Next
Sheets(1).Select
Worksheets.Add
Sheets(1).Name = "Combined Sheet"
Sheets(2).Activate
Range("A1").EntireRow.Select
Selection.Copy Destination:=Sheets(1).Range("A1")
For J = 2 To Sheets.Count
Sheets(J).Activate
Range("A1").Select
Selection.CurrentRegion.Select
Selection.Offset(1, 0).Resize(Selection.Rows.Count - 1).Select
Selection.Copy Destination:=Sheets(1).Range("A2000").End(xlUp)(2)
Next
End Sub
Nota: no código VBA acima que escolhi da célula A1, significa que em todos os intervalos de dados da planilha começa em A1. Mas você pode SUBSTITUIR a célula inicial (A1) por outra célula, conforme sua necessidade.
Espero que isso ajude você.