Este fórum está sendo desativado

[GENECI]

Boa tarde!

Solicito a sua ajuda, de acordo com o arquivo anexo.

Grato - Geneci.

[Kledison]

Boa noite!

uma possibilidade é com a macro abaixo:

Código: Selecionar todos

Sub copiar()

'copiar dados
Sheets("A").Range("A4:F25").Copy

'ativa a planilha de destino
Sheets("C").Activate

'seleciona o intervalo de destino
Range("A4").Select

'cola os dados no destino
ActiveSheet.Paste

Application.CutCopyMode = False

End Sub

Att

[osvaldomp]

Código: Selecionar todos

Sub ReplicaDados()
 Sheets("C").[A4:F25] = Sheets("A").[A4:F25].Value
End Sub