Olá jpfornari,

acredito que uma tabela pode resolver seu problema.
Basta inserir tabela com a quantidade de colunas que desejar, depois é só ir em design (com qualquer célula da tabela selecionada) e selecionar "linhas totais".
Depois disso é só arrastar a tabela para baixo. No canto inferior direito tem a opção de selecionar e arrastar para aumentar.

Em anexo um exemplo.

Acho que me expressei mal!!

Quero que ao dar enter após preencher a linha que ela crie uma nova linha em branco empurrando o que esta na linha a baixo!

preciso de uma função que ao dar um enter na ultima linha ou clicar em algo, possa inserir as linhas necessarias

Seria isso!! mas quando eu chego no A5 a planilha acaba!!

E se eu precisar de mais linhas??

Como acrescento automaticamente??

Clicar com o botão direito sobre o numero da linha que contem o total e depois em inserir não lhe atende?

Não!! Pois a intensão é criar uma planilha padrão onde eu apenas acrescente os dados!

Bom dia!!

Não seria tipo isso....

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A2")) Is Nothing Then
If Target.Cells.Value <> "" Then
ActiveCell.EntireRow.Insert
End If
End If
End Sub

Bom dia!!

Não seria tipo isso....

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A2")) Is Nothing Then
If Target.Cells.Value <> "" Then
ActiveCell.EntireRow.Insert
End If
End If
End Sub

Seria isso mesmo!! Muito obrigado!!