Boş satırı sil kodu

[officer08]

Sayfa1 de bulunan A sütunu altında sıralı satırlardan boş satırları sildirmek amacıyla aşağıda yazılı kodu kullanıyorum ancak bir veya iki boş satırı siliyor diğerleri aynı kalıyor . Oysa benim için A sütünu altında bulunan boş satırların hepsini silmesi gerekiyor hata nerede veya uygun kod nasıl olmalıdır yardımcı olursanız sevinirim.

Sub sil()
sat = Cells(1, "a").End(xlDown).Offset(1, 0).Select
ActiveCell.Rows.EntireRow.Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlDown)).Select

Selection.Delete Shift:=xlUp
End Sub

 

[Ömer]

Merhaba,

İstediğiniz bu mu?

Sub Sil()
    Columns("A:A").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub

 

[officer08]

Sağolasın Ömer oldu ellerine sağlık