son satıra yazdırma

[reelabuzer]

arkadaşlar benim öğrenmek istediğim şey şu;

son_dolu_satir = Sheets("sayfa2").Range("A65536").End(xlUp).Row
bos_satir = son_dolu_satir + 1

bu kod ile ilk boş satıra veri yazdırıyorum lakin ekte de ğöreceğiniz gibi eğer
A2 hücresi dolu ise kod çalışıyor A2 boş olup diğer ( B2:L2 ) aralığında ki bir hücreye bilgi girdiğim zaman bir sefere mahsus kaydediyor ama sonrasında kaydetmiyor acaba nerde hata yapıyorum veya neresini bilmiyorum yardımcı olursanız sevinirim
şimdiden teşekkürler...