Tenho 2 dicas pra vc:

1 - converta em tabela (Menu "Página Inicial" - "Formatar como tabela").

2 - Use a pesquisa do fórum, pq esse tema já tem várias respostas.

Já tentei encontrar aqui no fórum e não consegui.
Formatar para tabela não está rolando.

Já tenho minha tabela pronta, vou anexar, dá uma olha por gentileza, só falta isso de inserir linhas novas e ele puxar automaticamente o código da linha anterior

Boa tarde!!

Isso será feito em qual guia? Pedido ou Tabela?

Att

Na guia pedido

Boa noite ever

Acho que entendi qual era o teu problema e resolvi de uma maneira diferente, acrescentei uma condição na fórmular que só mostra os valores quando tem dados digitados na coluna A.

Confira na planilha:

Dê retorno.

Se a resposta foi útil, clique na mãozinha que fica do lado da ferramenta Citar.

[]s

Boa tarde Patropi,

Na verdade esse não era o meu problema.
O meu problema é que vou bloquear essas células para nao ser possivel editar os campos onde contenham fórmula, mas caso a pessoa queira inserir mais linhas, seja possível e que essa linha inserida já seja inserida com a fórmula que contém na linha de cima.

Espero que possa me ajudar, obrigado!

Boa tarde!!

Veja se isso funciona..

Sub aleVBA_13675()
'Foi usado o  Gravador de Macros
    Range("A65536").Select
    Selection.End(xlUp).Select
    Selection.Offset(-1).Select
    
    With Range(Cells(ActiveCell.Row, 1), Cells(ActiveCell.Row, 16))
    .Offset(1).Insert shift:=xlDown
    .Copy
    .Offset(1).PasteSpecial Paste:=xlPasteFormulasAndNumberFormats
    .Offset(1).PasteSpecial xlPasteFormats
    Application.CutCopyMode = False

End With

End Sub

Att

Boa tarde,

Cara, é quase isso! Dessa forma está dando algum bug, não entendi o por que, mas ele nao insere uma linha inteira, dá problema! Criei um botão, dá uma olhada no anexo, por gentileza.

Boa tarde!!

Tente assim...
Eu não tive problemas

Sub aleVBA_13675V2()
'Foi usado o  Gravador de Macros
    Range("A65536").Select
    Selection.End(xlUp).Select
    Selection.Offset(-1).Select
    
    With Range(Cells(ActiveCell.Row, 1), Cells(ActiveCell.Row, 34))
    .Offset(1).Insert shift:=xlDown
    .Copy
    .Offset(1).PasteSpecial Paste:=xlPasteFormulasAndNumberFormats
    .Offset(1).PasteSpecial xlPasteFormats
    Application.CutCopyMode = False

End With

End Sub

Att

Nossa! É exatamente isso Alex, só falta um detalhe.
Preciso bloquear as células que contenham fórmula para que não consigam editar, ao bloquear o botão de inserir linhas deixa de funcionar, dando uma mensagem de erro, segue em anexo o erro.

eveer

Pra resolver isso, basta inserir o código abaixo no início e no final da macro, que desbloqueia a planilha e volta bloquear no final da execução da macro.

No inicio após o nome da macro insira:

ActiveSheet.Unprotect "TESTE"

No final antes de End Sub insira:

ActiveSheet.Protect "TESTE"

Substitua a palavra TESTE pela senha da tua planilha.

Se a dica foi útil, clique na mãozinha que fica do lado da ferramenta Citar.

[]s

É exatamente o que eu queria, muitoooo obrigado!