Im trying to loop (at least thats what I think I do) this code below. I want
it check the last row of data to check if the cell is empty and if so, delete
the entire row.
It only works the once then the sub ends. How would I loop this so that it
checks until all empty cells have been deleted.

Range("u7").End(xlDown).Select
ActiveCell.Offset(0, -16).Select
If ActiveCell.Value = "" Then
ActiveCell.EntireRow.Select
ActiveCell.EntireRow.Delete
Else
End If

Apologies, think i should have put this in programming.

"Woodi2" wrote:

Im trying to loop (at least thats what I think I do) this code below. I want
it check the last row of data to check if the cell is empty and if so, delete
the entire row.
It only works the once then the sub ends. How would I loop this so that it
checks until all empty cells have been deleted.

Range("u7").End(xlDown).Select
ActiveCell.Offset(0, -16).Select
If ActiveCell.Value = "" Then
ActiveCell.EntireRow.Select
ActiveCell.EntireRow.Delete
Else
End If