enregistrement de la valeur d un TexBox vers une cellule et passer à la cellule suivante

Private Sub CommandButton1_Click()
'Application.screenUpdating = False
If TextBox1 = "" Then
MsgBox "saisir impérativement une donnée!", vbExclamation, "saisie de donnée obligatooire"
TextBox1.SetFocus
Exit Sub
End If
With ActiveSheet 'avec la feuille active
i = .Range("B" & .Rows.Count).End(xlUp).Row + 1 'premiere ligne vide en remontant dans la colonne B
If .Cells(i, 1) = "" Then 'pas compris l'utilité
   .Cells(i, 1) = TextBox1.Text '???????????? why
Else 'on colle les valeurs
.Cells(i, 2) = TextBox1.Text
.Cells(i, 3) = TextBox2.Text
.Cells(i, 4) = TextBox3.Text
.Cells(i, 5) = TextBox4.Text
.Cells(i, 6) = TextBox5.Text
.Cells(i, 7) = TextBox6.Text
End If
End With
'Application.ScreenUpdating = True
End Sub