Bom dia!!

Eu mesmo já respondi algumas dúvida desse tipo, use a pesquisa do fórum!!

Att

Experimente:

Sub Unificar_GT()

Dim ws As Worksheet

Application.ScreenUpdating = False

For Each ws In ThisWorkbook.Worksheets
  If Not ws.Name = "Todos os Dados" Then
    ws.UsedRange.Copy Sheets("Todos os Dados").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
  End If
Next ws

Rows(1).Delete

Sheets("Todos os Dados").UsedRange.Columns.AutoFit

Application.ScreenUpdating = True

msgbox "se a respsota ajudou, por favor, clique na mãozinha. Ah, pode apagar esta linha no código"

End Sub

Bom dia!

Veja uma forma em anexo

Att