Private Sub CommandButton1_Click()
Dim Say As Integer
If TextBox1 = Empty Then MsgBox "Okul Adı yazılmadı!", vbCritical, "Hata!": Exit Sub
If TextBox2 = Empty Then MsgBox "İşletme Kodu Yazılmadı", vbCritical, "Hata!": Exit Sub
If TextBox3 = Empty Then MsgBox "Abone Numarası yazılmadı!", vbCritical, "Hata!": Exit Sub
If TextBox4 = Empty Then MsgBox "Fatura Tarihi yazılmadı!", vbCritical, "Hata!": Exit Sub
If TextBox5 = Empty Then MsgBox "Fatura Tutarı yazılmadı!", vbCritical, "Hata!": Exit Sub
Say = Worksheets("GELEN").Range("B16").End(3).Row
Worksheets("GELEN").Range("B" & Say + 1) = Say
Worksheets("GELEN").Range("C" & Say + 1) = TextBox2.Value
Worksheets("GELEN").Range("D" & Say + 1) = TextBox3.Value
Worksheets("GELEN").Range("E" & Say + 1) = TextBox4.Value
Worksheets("GELEN").Range("F" & Say + 1) = TextBox5.Value
yukarıdaki koda alt alta eklemesi için ne eklenecekse yardımcı olabilir misiniz?