Hugo, apaguei o seu post no Forum "Formulario", uma vez que não temos um Formulário, e a questão é a de copiar da Plan1 para Plan2.

Tambem alterei o Titulo para um mais apropriado.

Então cole a rotina abaixo em seu arquivo, associe ao Botão na plan1.

Sub Copia_Plan1_p_Plan2()
    
    Sheets("Plan1").Range("A4:V4").Copy Destination:= _
    Sheets("Plan2").Range("A" & Rows.Count).End(xlUp).Offset(1, 0)

End Sub

Uma OBS : Como na rotina é copiado a linha 4 de "A4:V4" para a proxima linha vazia na Plan2, você tem de apagar os PONTOS que estão na Plan2, senão os valores serão copiados abaixo dos pontinhos.

Não esqueça de salvar o Arquivo como Habilitado para Marcros (.xlsm)

Faça os testes e veja se é isto o que pretende.

[]s

Mauro,

Desculpe a minha ignorância e obrigado pelos acertos.
Quanto ao código eu adaptei apenas o retorno a linha 4 apagando o que foi transferido, para ser inserido novos dados.

Valeu e 1 Abç!