Cheguei a este codigo ai embaixo mas ele copia a segunda linha da planilha e nao a proxima em branco como eu gostaria, criando assim sempre mais uma linha em branco para receber futuros dados.

Private Sub btnOk_Click()

Dim valor As Variant
Dim lastrow As Long

'Seleciona a planilha
Sheets("Lançamentos").Activate
Range("A2").Select
lastrow = Cells(Rows.Count, 1).End(xlUp).Row

ActiveCell.Offset(lastrow - 1, 0).Value = TxtData.Text ' salva o valor do textboxdata na coluna 0
ActiveCell.Offset(lastrow - 1, 1).Value = TxtComanda.Text
ActiveCell.Offset(lastrow - 1, 2).Value = TxtDescriçao.Text
ActiveCell.Offset(lastrow - 1, 3).Value = TxtValor.Text

With ActiveCell.EntireRow
.Copy
.Insert Shift:=xlUp
End With
Application.CutCopyMode = False

Call LimpaControles

End Sub

Experimente assim:

Private Sub btnOk_Click()

Dim valor As Variant
Dim lastrow As Long

'Seleciona a planilha
Sheets("Lançamentos").Activate
Range("A2").Select
lastrow = Cells(Rows.Count, 1).End(xlUp).Row
'Aqui  irá copiar a penultima linha e inseri-la, com todos seus features
Rows(lastrow - 1 & ":" & lastrow - 1).Select
Selection.Copy
Selection.Insert Shift:=xlDown
Application.CutCopyMode = False

ActiveCell.Offset(lastrow - 1, 0).Value = TxtData.Text ' salva o valor do textboxdata na coluna 0
ActiveCell.Offset(lastrow - 1, 1).Value = TxtComanda.Text
ActiveCell.Offset(lastrow - 1, 2).Value = TxtDescriçao.Text
ActiveCell.Offset(lastrow - 1, 3).Value = TxtValor.Text


'With ActiveCell.EntireRow
'.Copy
'.Insert Shift:=xlUp
'End With
'Application.CutCopyMode = False


'Call LimpaControles

Bom dia Reinaldo,

Ainda nao deu certo, estou postando o exemplo, obrigado.

Veja no anexo

Obrigado Reinaldo,

Ficou Show.

Reinaldo,

Como sempre nao consigo ficar parado ai invento arte, ok, agora ele vai adicionando linhas conforme a necessidade, é possivel criar um codigo que no evento click de um comando apague tudo que foi adicionado nesta planilha e volte como era basicamente? para uma nova quinzena como é o meu caso, istoé a cada 15 dias eu salvaria esta planilha e limparia ela para começar tudo de novo.

Obrigado

Se entendi crie um btn e use

Private Sub BtnLimpaquinzena_Click()
Dim lastrow As Long
Sheets("Lançamentos").Activate
Range("A2").Select
lastrow = Cells(Rows.Count, 1).End(xlUp).Row
Rows("2:" & lastrow).Select
Selection.Delete Shift:=xlUp
Range("A2").Select
End Sub

Mais do que perfeito, muito obrigado Reinaldo.