Complément pour grille de saisie par macro

Bonsoir tout le monde,
J'ai trouvé sur le forum un code (ci dessous) que j'ai associé à une userform pour une grille de saisie et celà fonctionne très bien sur les 12 colonnes mais j'aimerais que l'intégration de ma saisie commence à partir de la cellule A5 quand mon tableau est vide !! (actuellement la première ligne de saisie se met dans les colonnes de Titres !!).

Dim i As Integer, Li As Integer
Private Sub CommandButton1_Click()
Li = ActiveSheet.Range("a65536").End(xlUp).Row + 1

For i = 1 To 12
Cells(Li, i).Value = Me.Controls("Textbox" & i).Value
Next i
End Sub

Private Sub CommandButton2_Click()
For i = 1 To 12
Me.Controls("Textbox" & i).Value = ""
Next i
End Sub

Private Sub Label1_Click()

End Sub

Private Sub Label10_Click()

End Sub

Private Sub Label12_Click()

End Sub

Merci beaucoup pour vos réponses