In this macro I want it to look at columns A to E and if all of the cells from A to E are blank I want it to delete the entire row. Right now with the code below it is working but it is deleting the lines one at a time. How can I change it to do them all at once?
Code:
Sub ColorEmpty()
LastRow = Range("A65536").End(xlUp).Row
For i = 1 To LastRow
If IsEmpty(Cells(i, 5)) Then
Cells(i, 5).EntireRow.Delete
End If
Next i
End Sub