Sub Copiar()
    Sheets("Plan1").Range("A1:D6").Copy (Sheets("Plan2").Range("A1:D6"))
    Sheets("Plan1").Range("A2:D6").ClearContents
End Sub

Ola!

Porque não utiliza o gravador de macro? É mais facil!

Segue abaixo exemplo:

Boa tarde Clauderson

Movi teu tópico para o fórum correto que é o VBA & Macros.

Por enquanto, deixei sendo mostrado nos 2 fóruns, para você se localizar.

At.te

Patropi - Moderador

Boa Tarde Necron eu tentei baixar seu arquivo esta corropindo quando vai extrair tens como vc enviar novamente por favor

Olá,

Estou com um problema parecido criei uma userform para que os dados caiam na planilha "cadastro"(plan2), porém quando criei um botão para chamar o macro na planilha inicial (plan1),
Sub chamar_userfom()
Estagios_Extra.Show
End Sub

Funcionou abriu a tela do formulário, mas quando digito os dados no formulário não está caindo na planilha cadastro como deveria, está caindo na plan1 que foi onde criei o botão de chamada

Alguém pode me ajudar?

Olá,

Estou com um problema parecido criei uma userform para que os dados caiam na planilha "cadastro"(plan2), porém quando criei um botão para chamar o macro na planilha inicial (plan1),
Sub chamar_userfom()
Estagios_Extra.Show
End Sub

Funcionou abriu a tela do formulário, mas quando digito os dados no formulário não está caindo na planilha cadastro como deveria, está caindo na plan1 que foi onde criei o botão de chamada

Alguém pode me ajudar?

RESOLVIDO