Fernando,

Veja se seria assim.

Boa noite ! Wagner

Obrigado pela sua ótima solução. Posso abusar um pouco dos seus conhecimentos.
será que existe alguma forma para copiar para linha de baixo as formataçoes + as formulas.
segue em anexo o arquivo lá será melhor o entendimento.
desde já muito agradecido.
Fernando

Bom dia Fernando

Eu encontrei na net esta macro, que deverá ser colocada no evento change da planilha.
Quando é digitado dado na coluna F ela insere uma nova linha mantendo as mesmas fórmulas e formatações da linha. anterior.
Terá que adaptar para o teu caso.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 6 Then
        Range(Cells(Target.Row, 3), Cells(Target.Row, 6)).Copy
        Cells(Target.Row + 1, 3).PasteSpecial xlPasteFormats
        Application.CutCopyMode = False
    End If
End Sub

OBS. Eu não testei.

Um abraço.

Patropi
vou tentar adaptar a minha necessidade.

obrigado

Boa noite !

eu não consegui adaptar a solução dada parao meu problema. Alguem poderia me ajudar.

att,
FRS

FRSNANDO,

Segue seu arquivo após os devidos ajustes.

FRSNANDO,

Segue seu arquivo após os devidos ajustes.

Wagner

Ficou ótimo ! Obrigado mais uma vez.