Delete entire rows if the two rows are empty

Hi,
I have a code which is mentioned below. It works fine. But one problem is there. It is working when we are select the cell. I need the same code for the whole sheet range. When macro will run it will detect multiple blank rows & delete it. For ex. If A3:E3 & A4:E4 is blank & your cursor is in A3 then it will work. Please modify the below code which will auto detect multiple blank rows & delete it.
Code:
If Application.WorksheetFunction.CountA( _
Range("A" & ActiveCell.Row).Resize(2, 5)) = 0 Then
ActiveCell.Resize(2, 1).EntireRow.Delete
End If

shyampanda,

Welcome to the forum. In the future, please wrap your code in code tags. As for your question, the following should work for you:

Please Login or Register  to view this content.

Hope that helps,
~tigeravatar