Son satırdan sonraki boş satırları silme

[Gold_Savt]

Arkadaşlar A sütununda, son dolu satırdan sonraki ilk boş 10 satırı silmek istiyorum.
Nasıl bir kod eklemeliyim.

 

[Korhan Ayhan]

Örnek dosyanız var mı?

 

[AdemCan]

Örnek olarak şu kod ile yapabilirsiniz ama son dolu satırdan sonraki satırların hepsi boş olduğu için böyle bir şeye neden ihtiyacınız oldu merak ettim açıkcası.
Umarım yanlış anlamamışımdır.

Sub ornek()
    son = Cells(Rows.Count, "A").End(xlUp).Row
    Rows(son + 1 & ":" & son + 10).Delete Shift:=xlUp
End Sub

 

[Gold_Savt]

B, C ve diğer sutunlardaki dolu olan hücreleri sildiğimden emin olmak içindi hocam. Teşekkür ederim.

 

[AdemCan]

İyi çalışmalar. Rica ederim.