Bos satirlari makro ile silmek

[musak64]

makro ile sayfadaki bos satirlari nasil silebilirim?

 

[Metin Karaağaç]

Sub sil()
Range("A:A").Select
Selection.SpecialCells(xlCellTypeBlanks).Select
Selection.EntireRow.Delete
Range("A1").Select
End Sub

 

[musak64]

cok tesekkür ederim acemi1. bilmek kadar güzel sey yok..