userformdan verileri sayfaya altalta kaydetme

[efturgut]

arkadaşlar öğrenme aşamasındayım ve oluşturmuş olduğum çalışmada userformdan verileri sayfada a2:h2 hücrelerine yazdırabiliyorum fakat ben bunu altalta devamlı yazdırmak istiyorum. birde sıra numarasını otomatik kendisi versin istiyorum

 

[Orion1]

Dosyanız ekte.

Private Sub CommandButton1_Click()
Dim sat As Long
With Sheets("Sayfa1")
    sat = .Cells(65536, "A").End(xlUp).Row + 1
    If sat >= 65533 Then
        MsgBox "Sayfada satır doldu başka kayıt yapamazsınız.!", vbCritical, "UYARI"
        Exit Sub
    End If
    If Not IsDate(TextBox2.Text) Then
        MsgBox "Doğum tarihi sayısal bir değer olmalıdır.Kayıt yapılmadı.", vbCritical, "UYARI"
        TextBox2.SetFocus
        TextBox2.SelStart = 0
        TextBox2.SelLength = Len(TextBox2.Text)
        Exit Sub
    End If
    If Not IsDate(TextBox8.Text) Then
        MsgBox "Sıra No sayısal bir değer olmalıdır.Kayıt yapılmadı.", vbCritical, "UYARI"
        TextBox8.SetFocus
        TextBox8.SelStart = 0
        TextBox8.SelLength = Len(TextBox8.Text)
        Exit Sub
    End If
Sayfa1.Range("B" & sat).Value = TextBox1.Text
Sayfa1.Range("C" & sat).Value = CDate(TextBox2.Text)
Sayfa1.Range("D" & sat).Value = TextBox3.Text
Sayfa1.Range("E" & sat).Value = TextBox4.Text
Sayfa1.Range("F" & sat).Value = TextBox5.Text
Sayfa1.Range("G" & sat).Value = TextBox6.Text
Sayfa1.Range("H" & sat).Value = TextBox7.Text
Sayfa1.Range("A" & sat).Value = CLng(TextBox8.Text)
End With
End Sub