Soru Belli bir satırı boş olan sütunları silmek

[emreakharman]

İlgili sütunda 5. satır boş ise o sütunun komple silinmesini istiyorum. Ve tabi bunu seçtiğim tüm sütunlarda yapmam gerekiyor. Yardımcı olur musunuz?

 

[YUSUF44]

Aşağıdaki makro o anda seçili olan hücrenin bulunduğu sütunda 5. satır boşsa o sütunu siler:

Sub sil()
a = ActiveCell.Column
If Cells(5, a) = "" Then
    Columns(a).Delete
End If
End Sub