Veja se assim serve.

Modifiquei o UsedRange por End(xlUp), apaguei as fórmula e inseri um Copy/Paste.

Se preferir, podemos apenas inserir a fórmula.

Mas verifique se atende.

Private Sub salvar_Click() 'botão salvar'
totalregistro = Worksheets("Plan1").Range("A1048576").End(xlUp).Row + 1

With Worksheets("Plan1")
.Cells(totalregistro, 3) = TextBox1
.Cells(totalregistro, 4) = TextBox2
.Cells(totalregistro, 5) = TextBox3
.Cells(totalregistro, 6) = TextBox4
.Cells(totalregistro, 7) = TextBox5
End With

Range("A" & totalregistro - 1).Copy
Range("A" & totalregistro).Activate
ActiveSheet.Paste

MsgBox "GRAVADO COM SUCESSO"

End Sub

Irmão, ficou ótimo mas pintou um outro "probleminha", quando cadastro o artigo nas colunas E e F ele cadastra como texto, como faço pra mudar pra número? E na coluna G tem que ser como moeda, como faço?

E outra coisa, como faria se houvesse fórmulas nas colunas H, I, J e K?

Desculopa o abuso irmão, e desde já agradesso a colaboração de sempre!

Para converter usamos as Funções de conversão de tipos, de uma olhada na ajuda do VBA sobre as mesmas, temos varios tipos,e em sua rotina altere :

.Cells(totalregistro, 5) = TextBox1 - para :
.Cells(totalregistro, 5) = CDbl(TextBox1.Value) 'Valor Numerico
e

.Cells(totalregistro, 7) = TextBox5 - para :
.Cells(totalregistro, 7) = CCur(TextBox5.Value) 'Moeda

[]s

Pow Irmão Valew Mesmo, é o que eu queria!
Abç.