Boa noite Jscopa,

Olhe nas mensagens. De qualquer forma, troque o código que coloquei anteriormente por esse:

Sub LevarValores()
    
    Dim WsM             As Worksheet: Set WsM = Worksheets("MOVIMENTACAO2017")
    Dim WsH             As Worksheet: Set WsH = Sheets("HISTORICO")
   
    Dim Ulin            As Double
    
    Dim Nlin            As Double
    
    Nlin = WsM.Range("A65530").End(xlUp).Row
    
    Rem Pega a última linha não preenchida da planilha WsH
    Ulin = WsH.Range("A65530").End(xlUp).Offset(1, 0).Row
    
    
    WsM.Range("A6:AG" & Nlin).Copy
    WsH.Select
    With Range("A" & Ulin)
        .PasteSpecial Paste:=xlPasteValues
        .PasteSpecial Paste:=xlPasteFormats
    End With
    
    
End Sub

.
bruno, valeu mesmo!! ... Mas ao colar também a formatação, deu outro problema (é que está considerando a formatação para ver a próxima linha vazia na colagem)!!! ... Será que tem como resolver isto??
.

Copa troque essas duas linhas

Nlin = WsM.Range("B65530").End(xlUp).Row

Rem Pega a última linha não preenchida da planilha WsH
Ulin = WsH.Range("B65530").End(xlUp).Offset(1, 0).Row

.
brunoxro e Marcelo, muito obrigado!! ... Show!! ... Resolvido!!! ... (pena que não tem como clicar em resolvido na postagem dos dois kk)
.