Userform üzerinden kayıt yaparken sorun oluştu

[imdatsaral]

Selam Arkadaşlar

Private Sub CommandButton1_Click()
If TextBox1.Value <> "" Then
Sheets("kayit").Activate
End If
ActiveCell.Offset(1, 0).Activate
ActiveCell.Value = TextBox1.Value
ActiveCell.Offset(0, 1).Value = TextBox2.Value
ActiveCell.Offset(0, 2).Value = TextBox3.Value
ActiveCell.Offset(0, 3).Value = TextBox4.Value
ActiveCell.Offset(0, 4).Value = TextBox5.Value
ActiveCell.Offset(0, 5).Value = TextBox6.Value

TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
TextBox6.Text = ""
End Sub

UserForm Üzerinden kayıt Yapıyorum ama Aktif olan hücreye yazıyor benim istediğim en son kayıt yapılanın altına yazsın
teşekürler

imdat saral
izmir

 

[imdatsaral]

Private Sub CommandButton1_Click()
b = WorksheetFunction.CountA(Sheets("kayit").Range("a1:a65536"))
Sheets("kayit").Cells(b + 2, 1) = TextBox1.Value
Sheets("kayit").Cells(b + 2, 2) = TextBox2.Value
Sheets("kayit").Cells(b + 2, 3) = TextBox3.Value
Sheets("kayit").Cells(b + 2, 4) = TextBox4.Value
Sheets("kayit").Cells(b + 2, 5) = TextBox5.Value
Sheets("kayit").Cells(b + 2, 6) = TextBox6.Value

TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
TextBox6.Text = ""

ben bu şekilde sorunumu çözdüm

imdat saral
izmir

 

[sender]

If TextBox2.Value <> "" Then
Sheets("Sayfa1").Activate
Cells(1, 1).Select

Do While ActiveCell.Value <> ""
ActiveCell.Offset(1, 0).Activate
Loop

ActiveCell.Value = TextBox1.Value
ActiveCell.Offset(0, 1).Value = TextBox2.Value
ActiveCell.Offset(0, 2).Value = TextBox3.Value
ActiveCell.Offset(0, 3).Value = TextBox4.Value
ActiveCell.Offset(0, 4).Value = TextBox5.Value
End If
end sub

böyleydi galiba..