Soru kayıt edilecek satır belirleme

[sirkülasyon]

Private Sub CommandButton5_Click()
If TextBox1.Text <> "" Then
Son_Dolu_Satir = Sheets("Sayfa1").Range("A65536").End(xlUp).Row
Bos_Satir = Son_Dolu_Satir + 1
Sheets("Sayfa1").Range("A" & Bos_Satir).Value = Application.WorksheetFunction.Max(Sheets("Sayfa1").Range("A:A")) + 1
Sheets("Sayfa1").Range("B" & Bos_Satir).Value = TextBox2.Text
Sheets("Sayfa1").Range("C" & Bos_Satir).Value = TextBox1.Text
Sheets("Sayfa1").Range("D" & Bos_Satir).Value = TextBox3.Text
Sheets("Sayfa1").Range("E" & Bos_Satir).Value = TextBox4.Text
Sheets("Sayfa1").Range("F" & Bos_Satir).Value = TextBox5.Text
Sheets("Sayfa1").Select
Unload UserForm4
End If
End Sub

2.satıra kayıt ediyor.
2 değil de 8. satırdan itibaren kayıt yaptırmayı sağlayamadım. Yardımcı olabilir misiniz?

 

[YUSUF44]

Bos_Satir = WorkSheetFunction.Max(8,Son_Dolu_Satir + 1)

Şeklinde deneyin.

 

[sirkülasyon]

Yusuf Abi
Teşekkür Ederim. Allah Razı Olsun.