Olá amigo,
Começa com esse código dentro do botão inserir.
Private Sub btnInserir_Click()
Dim UltimaLinha As Object
Set UltimaLinha = Plan1.Range("A65536").End(xlUp)
UltimaLinha.Offset(1, 0).Value = TextBox1.Text
UltimaLinha.Offset(1, 1).Value = TextBox2.Text
UltimaLinha.Offset(1, 2).Value = TextBox3.Text
UltimaLinha.Offset(1, 3).Value = TextBox4.Text
UltimaLinha.Offset(1, 4).Value = TextBox5.Text
UltimaLinha.Offset(1, 5).Value = TextBox6.Text
UltimaLinha.Offset(1, 6).Value = TextBox7.Text
UltimaLinha.Offset(1, 7).Value = TextBox8.Text
ActiveWorkbook.Save
TextBox1.Text = UltimaLinha.Offset(2, 0).Select
TextBox1.SetFocus
'Limpa Textbox
TextBox1.Text=""
TextBox2.Text=""
TextBox3.Text=""
TextBox4.Text=""
TextBox5.Text=""
TextBox6.Text=""
TextBox7.Text=""
TextBox8.Text=""
End Sub
Postado : 17/02/2016 8:20 am