Boa tarde!!

Se usar a pesquisa, encontrará muita coisa próxima disso...

Sub teste()
Range("H1:P10").Copy Range("H" & Rows.Count).End(3)(2)
End Sub

Att

Correto, mas como disse: tá tudo corrompido. Solução simples mas eficiente.

Boa tarde!!

Eu fico feliz que resolveu, obrigado pelo retorno!!

Att

Só mais uma "isca" de conhecimento do nobre colega: Como fazer para a copia iniciar de uma determinada linha. Ex. linha 450

No post anterior, o alexvba resolveu a questão a contento, porém, percebi que faltava (falha minha ) duas coisinhas a mais:
1º Como fazer para a copia iniciar de uma determinada linha. Ex. linha 450
2º Como fazer para copiar somente os valores.
Grato

Sub teste()
Range("H1:P10").Copy Range("H" & Rows.Count).End(3)(2)
End Sub

Boa noite,

Veja se atende:

Sub ColarEspecial()
    'Copiar a partir da linha 450
    [H450:P500].Copy
    
    'Colar Especial Valores
    [X500].PasteSpecial xlPasteValues
End Sub

Abraço

dimorais

Eu fundi os teus 2 tópicos, pois é proibido criar mais de um tópico sobre a mesma dúvida.

Patropi - Moderador

Patropi, grato pela junção. JValq, precisava unir as qualidades da 1ª macro com a 2ª, vide plan.