Soru Dolu satır kadar textbox değerini sütuna aktarmak

[sirkülasyon]

GİRİŞ sayfası A sütununda 5. satırdan itibaren sıra numarası var.
Textbox10 da bulunan sayıyı G sütununa "A sütununda ki sıra numarası kadar" G5 ten itibaren kaydedebilmek için yardımcı olabilir misiniz?
Teşekkür ederim.

 

[AdemCan]

Yanlış anlamadıysam eğer,
Giriş sayfası A sütunundaki son sıra numarasına göre TextBox10 daki sayıyı G5 hücresinden itibaren hücreye aktaran kod örneği.

Private Sub CommandButton1_Click()
Dim s1 As Worksheet, sNo As Long, i As Long
Set s1 = Sheets("Giriş")

sNo = s1.Range("A" & Rows.Count).End(3).Value

For i = 5 To 4 + sNo
    s1.Cells(i, "G").Value = TextBox10.Value
Next i

Set s1 = Nothing
sNo = 0: i = 0
End Sub

 

[sirkülasyon]

Allah işini rast getire sağ ol

 

[AdemCan]

Amin cümlemizin işi rast gitsin inşallah.