Private Sub CommandButton1_Click()
[a].SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub
makro ile yapabilirsin hocam, hücre aralığını kendine göre değiştir kodda yada
1- Klavyeden F5 tuşuna basın
2- "Özel" butonuna tıklayın açılan pencerede "Boşluklar" seçeneğini işaretleyin
3-"Düzen" mesünüden "Sil" komutunu tıklayın, açılan pencerede "Tüm satır" seçeneğini işaretleyip "Tamam" butonuna tıklayın.
alıntı: excel.web.tr