Tente isso
Sub Copia_Pastas()
'
' Macro4 Macro
' Macro gravada em 18/08/2009 por wmatos
'
'
Dim n As Long
For n = 1 To 5
Sheets(n).Select
Range("A1").Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.Copy
Sheets("Total").Select
Range("A65000").Select
Selection.End(xlUp).Select
If ActiveCell.Text <> "" Then
ActiveCell.Offset(1, 0).Select
End If
ActiveSheet.Paste
Next
End Sub
Valeu
Wesley