O colar especial valores e formato -- gravado -- fica um "entulho" desnecessário, veja ...

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False

Anderson, acho que vc não entendeu meu pedido!! ... Mas para não falar, sem testar, testei sua sugestão mas não funcionou!!

.

Mas acabei montando algo que funciona (só não sei se é a melhor solução - acho que não teria necessidade dessas 2 linhas quase iguais para valor e formato)!!! ... Em princípio resolvi o problema, mas vou aguardar outras opiniões para dar o tópico como resolvido!!!

---------  Ou seja, acho que a Macro não teria que ir em A2000 duas vezes (uma para colar formatos e outra para colar valores)!!!

.

Sub ultima_linha()

Range("A3:A8").Copy

Range ("A2000").End(xlUp).Offset(1,0).PasteSpecial xlPasteFormats
Range ("A2000").End(xlUp).Offset(1,0).PasteSpecial xlPasteValues

Application.CutCopyMode = False

End Sub

 

Postado por: @jscopa10

...acho que não teria necessidade dessas 2 linhas quase iguais para valor e formato)!

 Boa noite e Feliz Natal, amigos!

As duas linhas são necessárias sim, @jscopa10. Esse método PasteSpecial não é tão inteligente e não permite combinar os parâmetros, diferentemente por exemplo do método SpecialCells e até mesmo dos botões da MsgBox em que vc pode somar os parâmetros para obter diferentes combinações.