Obs2: A primeira aba receberá as informações das demais.

Sub ConsolidarDados()
Dim total As Long
For i = 2 To Worksheets.Count
Worksheets(i).Select
Range("A1").Select
If ActiveCell.Offset(0, 1) <> "" Then
Range(Selection, Selection.End(xlToRight)).Select
End If
If ActiveCell.Offset(1, 0) <> "" Then
Range(Selection, Selection.End(xlDown)).Select
End If
Selection.Copy
Worksheets(1).Select
total =
Application.WorksheetFunction.CountA(Worksheets(1).Range("A1:A1048576"))
Range("A" & total + 1).Select
ActiveSheet.Paste
Next
End Sub

29. Cronometrar o tempo de outras macros

Algumas macros tem processamento demorado, desta forma, é sempre
recomendado cronometrar o tempo de execução para se fazer ajustes e
melhorias. A função desta macro é cronometrar o tempo de execução de
outras macros, desta forma, basta substituir o trecho em negrito destacado
pelo código desejado.

Obs: Substituir os valores de exemplo em negrito pelos valores desejados.

Sub MacroCronometro()
'Início cronômetro
ti = Time
'Insira seu código
'Fim cronômetro
tf = Time