Soru İlk satıra kaydetme

[sirkülasyon]

Son_Dolu_Satir = Sheets("OKUL").Range("A65536").End(xlUp).Row + 1
Bos_Satir = Son_Dolu_Satir
Sheets("OKUL").Range("A" & Bos_Satir).Value = TextBox1.Text

yukarıda ki kod ile A sütunu 2. satırdan itibaren alt alta kaydediyor.
Bunu 1. satırdan itibaren alt alta kaydetmek için nasıl yapabilirim?

 

[Necdet]

Merhaba,
Aşağıdaki gibi kullanabilirsiniz.
Not: Hem dolu hem boş için iki ayrı değişkene gerek yok.

    If Sheets("OKUL").Range("A1") = "" Then
        Bos_Satir = 1
    Else
        Bos_Satir = Sheets("OKUL").Cells(Rows.Count, "A").End(3).Row + 1
    End If

 

[sirkülasyon]

Necdet Abi çok teşekkür ederim.
Saygılarımla