Son satır dan başlayarak veri kaydetme ( VBA kod )

[mrt]

User Formda üç sütun ve 10 satırlık bir alan bulunmaktadır.
Bu alanları; Hareketler sayfasına

Textbox1 = B sütununda ilk boş satıra
Textbox2 = C sütununda ilk boş satıra
Textbox3 = D sütununda ilk boş satıra

Textbox4 = Textbox1'in alt satırına
Textbox5 = Textbox2'in alt satırına
Textbox6 = Textbox3'in alt satırına

Textbox7 = Textbox4'in alt satırına
Textbox8 = Textbox5'in alt satırına
Textbox9 = Textbox6'in alt satırına

Textbox10 = Textbox7'in alt satırına
Textbox11 = Textbox8'in alt satırına
Textbox12 = Textbox9'in alt satırına

Textbox13 = Textbox10'in alt satırına
Textbox14 = Textbox11'in alt satırına
Textbox15 = Textbox12'in alt satırına

Textbox16 = Textbox13'in alt satırına
Textbox17 = Textbox14'in alt satırına
Textbox18 = Textbox15'in alt satırına

Textbox19 = Textbox16'in alt satırına
Textbox20 = Textbox17'in alt satırına
Textbox21 = Textbox18'in alt satırına gelecek şekilde nasıl yazdırırım ?
( VBA kodu lütfen )

 

[algil]

Aşağıdaki kodu bir deneyin

If TextBox1 <> Empty Then Cells([b1:b65536].End(xlDown).Row + 1, "b") = TextBox1
If TextBox2 <> Empty Then Cells([c1:c65536].End(xlDown).Row + 1, "c") = TextBox2
If TextBox3 <> Empty Then Cells([d1:d65536].End(xlDown).Row + 1, "d") = TextBox3