ve se ajuda:

Sub Copier_Coler_GT()
Application.ScreenUpdating = False
Dim ws As Worksheet
Dim UL(1 To 2) As Long
Set ws = Sheets("Tab_Total")
For Each Sheet In Worksheets
    With ws
        UL(1) = .Cells(Rows.Count, "A").End(xlUp).Row + 1
    End With
    If Not Sheet.Name = ws.Name Then
        With Sheet
            UL(2) = .Cells(Rows.Count, "A").End(xlUp).Row
            .Range("A2:J" & UL(2)).Copy ws.Range("A" & UL(1))
        End With
    End If
Next
Application.ScreenUpdating = True
End Sub

ve se ajuda:

Sub Copier_Coler_GT()
Application.ScreenUpdating = False
Dim ws As Worksheet
Dim UL(1 To 2) As Long
Set ws = Sheets("Tab_Total")
For Each Sheet In Worksheets
    With ws
        UL(1) = .Cells(Rows.Count, "A").End(xlUp).Row + 1
    End With
    If Not Sheet.Name = ws.Name Then
        With Sheet
            UL(2) = .Cells(Rows.Count, "A").End(xlUp).Row
            .Range("A2:J" & UL(2)).Copy ws.Range("A" & UL(1))
        End With
    End If
Next
Application.ScreenUpdating = True
End Sub

Olá gtsalikis.
Obrigado pelo codigo, deu certo.
Agora, pode me ajudar com outra coisa?
Algumas linhas trazem apenas o totalizador, uma soma conforme o texto. Gostaria de saber se vc pode me fornecer um codigo que faça com que essas linhas com totalizador sejam excluidas deixando somente as demais.
Deixei um exemplo em anexo.
Abraços e obrigado.

use assim:

Sub Copier_Coler_GT()
Application.ScreenUpdating = False
Dim ws As Worksheet
Dim UL(1 To 2) As Long
Set ws = Sheets("Tab_Total")
For Each Sheet In Worksheets
    With ws
        UL(1) = .Cells(Rows.Count, "A").End(xlUp).Row + 1
    End With
    If Not Sheet.Name = ws.Name Then
        With Sheet
            UL(2) = .Cells(Rows.Count, "A").End(xlUp).Row
            .Range("A2:J" & UL(2)).Copy ws.Range("A" & UL(1))
        End With
    End If
Next
ws.Activate
For UL(2) = 2 To UL(1)
    If Cells(UL(2), "A").Value2 = " - " Then Rows(UL(2)).Delete
Next
Application.ScreenUpdating = True
End Sub

use assim:

Sub Copier_Coler_GT()
Application.ScreenUpdating = False
Dim ws As Worksheet
Dim UL(1 To 2) As Long
Set ws = Sheets("Tab_Total")
For Each Sheet In Worksheets
    With ws
        UL(1) = .Cells(Rows.Count, "A").End(xlUp).Row + 1
    End With
    If Not Sheet.Name = ws.Name Then
        With Sheet
            UL(2) = .Cells(Rows.Count, "A").End(xlUp).Row
            .Range("A2:J" & UL(2)).Copy ws.Range("A" & UL(1))
        End With
    End If
Next
ws.Activate
For UL(2) = 2 To UL(1)
    If Cells(UL(2), "A").Value2 = " - " Then Rows(UL(2)).Delete
Next
Application.ScreenUpdating = True
End Sub

FANTASTICO.
Muito obrigado pela ajuda.
Abraços