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
Lembre-se de AGRADECER aos que te ajudaram, e de marcar o tópico como [Resolvido]
Gente que cuida de gente.
Gilmar
Postado : 10/02/2015 8:42 am