criando userform

Pessoal,

Gostaria do auxílios de vcs, para solucionar uma dificuldade:

Estou criando uma planilha, na qual vou inserir alguns dados, via TextBox.
O fato é que depois de muita dificuldade (sou iniciante em VBA), consegui um código para que a digitar uma infomação na textbox, caso a linha esteja preenchida, sejam inseridas as informações ma próxima linha, da mesma coluna (abaixo).

Abaixo, segue o código que estou usando:

Private Sub CommandButton1_Click()
With Sheets("Cadastro").Range("B" & ActiveSheet.Rows.Count).End(xlUp)
.Offset(1, 0).Value = TextBox01.Text
.Offset(1, 1).Value = TextBox02.Text
.Offset(1, 2).Value = TextBox03.Text
.Offset(1, 3).Value = TextBox04.Text
.Offset(1, 4).Value = TextBox05.Text
.Offset(1, 5).Value = TextBox06.Text
.Offset(1, 6).Value = TextBox07.Text
.Offset(1, 7).Value = TextBox08.Text
.Offset(1, 8).Value = TextBox09.Text
.Offset(1, 9).Value = TextBox010.Text
.Offset(1, 10).Value = TextBox011.Text
.Offset(1, 11).Value = TextBox012.Text
.Offset(1, 12).Value = TextBox013.Text
.Offset(1, 13).Value = TextBox014.Text

End With
TextBox01.Text = ""
TextBox02.Text = ""
TextBox03.Text = ""
TextBox04.Text = ""
TextBox05.Text = ""
TextBox06.Text = ""
TextBox07.Text = ""
TextBox08.Text = ""
TextBox09.Text = ""
TextBox010.Text = ""
TextBox011.Text = ""
TextBox012.Text = ""
TextBox013.Text = ""
TextBox014.Text = ""
TextBox01.SetFocus

Unload Me
MsgBox "Atualização realizada com sucesso!", vbOkOnli

End Sub

Como podem ver, são 14 TextBox, as quais inserem valores distintos (Data, CPF, RG, Hora), por isso, estão necessito saber, como adequar este código, as formatações necessárias.

Alguém saberia me ajudar?

Desde já, agradeço!


Atenciosamente,


Jean Alves