Sayı Atama

[seylanm]

Arkadaşlar Merhaba,

Numara alma sistemi oluşturuyorum. aşağıdaki gibi kod yazdım butona basıldığında yazdığım textboxlardakiler hücrelere atanıyor ama aynı şekilde butona basınca otomatik sayıda atmasını istiyorum bunu nasıl yapabilirim.

Private Sub CommandButton1_Click()


If TextBox1.Text <> "" Then
Son_Dolu_Satir = Sheets("SKNO").Range("B65536").End(xlUp).Row
Bos_Satir = Son_Dolu_Satir + 1
    Sheets("SKNO").Range("B" & Bos_Satir).Value = TextBox1.Text
    Sheets("SKNO").Range("C" & Bos_Satir).Value = TextBox2.Text
    Sheets("SKNO").Range("D" & Bos_Satir).Value = TextBox3.Text
    Sheets("SKNO").Range("E" & Bos_Satir).Value = TextBox4.Text
    Sheets("SKNO").Range("F" & Bos_Satir).Value = TextBox5.Text
    Sheets("SKNO").Range("G" & Bos_Satir).Value = TextBox6.Text
    Sheets("SKNO").Range("H" & Bos_Satir).Value = TextBox7.Text
    Sheets("SKNO").Range("I" & Bos_Satir).Value = TextBox8.Text
    For i = 0 To Range("B65530").End(3).Row
    On Error Resume Next
    If (Range("B" & i).Value <> "") Then
    Range("A" & i) = i
    End If
    Next i

    Else
   
    MsgBox ("Eksik Bilgileri Giriniz.")
   
    End If
   
    MsgBox "Kayıt Tamamlanmıştır"
Unload Me
AnaMenu.Show
End Sub

Private Sub userform_activate()
Application.Visible = False
End Sub

[seylanm]

Burada ki hata for döngüsünü yaparken B2'den başlayıp A2'den atamaya başlasın istiyorum bir türlü ayarlayamadım