.
Estou tentando aqui adaptar este código de um outro arquivo (que copia de outro arquivo), mas tá difícil k ... (odeio essa minha lerdeza com VBA kk)!!!

Option Explicit

Sub copiarColar()
Application.ScreenUpdating = False

   Sheets ("HEJUL")
      .Range("A3:N5000").Copy
      Sheets("TOTAL").Range("A3").PasteSpecial Paste:=xlPasteValues
   End

   Sheets ("HEAGO")
      .Range("A3:N5000").Copy
      Sheets("TOTAL").Range("A5001").PasteSpecial Paste:=xlPasteValues
   End

   Sheets ("HESET")
      .Range("A3:N5000").Copy
      Sheets("TOTAL").Range("A10001").PasteSpecial Paste:=xlPasteValues
   End

   Sheets ("HEOUT")
      .Range("A3:N5000").Copy
      Sheets("TOTAL").Range("A15001").PasteSpecial Paste:=xlPasteValues
   End
   
   Sheets ("HENOV")
      .Range("A3:N5000").Copy
      Sheets("TOTAL").Range("A20001").PasteSpecial Paste:=xlPasteValues
   End

End

Se alguém fizer com que este código funcione, já estou no lucro ... afinal depois coloco outra macro para classificar a Aba TOTAL e assim eliminar os "buracos" entre um mês e outro, ou entre uma Aba colada e a outra!!
.

Boa noite JSCOPA,

Veja o código que está no módulo1 do arquivo em anexo.

Confira se o resultado é o desejado, principalmente o formato das horas. Caso não seja, coloquei no código outra possibilidade para você testar.

att,

.
brunoxro, desde já obrigado!!
.
Seu código funciona parcialmente ... ele está colando valores (e não VALORES E FORMATOS)!!
.
Eu preferia que o código fosse no formato que postei acima, mas quem sou eu para pedir ajuda e ainda exigir de tal forma kk!! ... Seria o mesmo que o afogado exigisse corda azul para segurar e se salvar kkkkkkkkkkk!!
.

Boa noite Copa.
Veja se lhe ajuda.

https://drive.google.com/file/d/0B1v5QFYp6go1VmZ2cFdFelR5c2c/view?usp=sharing

ficou grande... por isso não foi..

Copa, aproveitando o codigo do Bruno ajustei para colar formatos so substituir

Sub Exemplo_Copiar()
    
    
    Dim i           As Double
    Dim NlinWs      As Double
    Dim NlinWsT     As Double
    
    Dim WsTotal     As Worksheet
    Dim Ws          As Worksheet
    
    Set WsTotal = Sheets("TOTAL")
    
    WsTotal.Select
    
    'Em cada Planilha do Arquivo
    For Each Ws In Worksheets
        
        'Se o nome da planilha for diferente de 'TOTAL'
        If Trim(Ws.Name) <> Trim("TOTAL") Then
            
            NlinWs = Ws.Range("B1048575").End(xlUp).Row
            NlinWsT = WsTotal.Range("B1048575").End(xlUp).Offset(1, 0).Row
            
            Rem Vai pegar copiar os valores e não o formato
'            Range("A" & NlinWsT & ":N" & ((NlinWsT - 3) + NlinWs)).Value2 = _
'            Ws.Range("A3:N" & NlinWs).Value2
            
            Rem Se não gostou do formato do código acima, coloque como comentário a linha _
            acima e retire os comentários do trecho abaixo.
            Ws.Select
            Ws.Range("A3:N" & NlinWs).Copy
            WsTotal.Select
            WsTotal.Range("A" & NlinWsT).PasteSpecial Paste:=xlPasteValues
            WsTotal.Range("A" & NlinWsT).PasteSpecial Paste:=xlPasteFormats
            
        
        End If
        
    
    Next Ws
    
End Sub

Só uma observação.
Pelo menos nesse exemplo do anexo, eu observei muitos dados que "aparentam" ser horas mas estão como texto na origem, logo, o destino será equivalente!

.
wzxnet7, obrigado pela sugestão!!
.
Seu código é mais enigmático ainda k ... e não está trazendo o formato!! ... Veja, por exemplo, as linhas 2160 a 2230 da Aba HEJUL, foram para a Aba TOTAL sem formatação correspondente!!
.
Como disse acima, preferia uma correçãozinha no código que postei!!
.
"Só uma observação.
Pelo menos nesse exemplo do anexo, eu observei muitos dados que "aparentam" ser horas mas estão como texto na origem, logo, o destino será equivalente!"
.
É wzxnet7, tem esse problema, por isto as fórmulas das colunas K:N ficaram mais longas, afinal além de ter que mudar o formato para conferência, elas precisam verificar essa "aparência" de horas!!
.
--------------------------
.
Marcelo Prudêncio, sua adaptação não funcionou aqui não!!!
.

Não estou enxergando a diferença. Exceto em relação as cores, é claro

Eu havia entendido que era o formato dos valores numericos (das horas, por exemplo)
Se eu entendi errado, me corrija....

Segue trazendo os formatos de cores também

https://drive.google.com/file/d/0B1v5QFYp6go1bjNkRGVRRXI5TDg/view?usp=sharing

.
wzxnet7, então, as cores são formatações!! ... É que muitas vezes uso as cores para identificar um certo grupo de pendências!!
.

Foi mal... Quando fala de "formato" só me vêm à cabeça formato de número...

.
Pena que umas Macros são super simples (minha 2ª postagem), outras, affff kk ...
.
OPS!! ... Peço aos Moderadores que não tranquem o tópico hoje ... apesar de estar resolvido, com a ótima solução do wzxnet7, ainda acredito numa adaptação da macro que postei lá no início !! ... E caso não me reste opção, que a macro do enigmática do wzxnet7, só copie as linhas completamente preenchidas de A:N das Abas HEJUL até HEDEZ!!
.
Gostaria de uma macro ajustável como a que postei, para não ficar toda hora pedindo ajuda para um ajustezinho, que eu mesmo poderia fazer!!!!!!!!!!!!!!!!! k
.

Boa Noite Copa.
Eu mandei ( via MP) uma indentação do código.
Acredito que com essa explicação vc conseguirá modelá-la quando necessário.