Help with Loop

  • Thread starter Thread starter Woodi2
  • Start date Start date
W

Woodi2

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
 
Hi

I think this is what you need:

Sub ccc()

Set StartCell = Range("u7")
LastRow = StartCell.End(xlDown).Row
TargetCol = "E"

For r = LastRow To StartCell.Row Step -1
If Range(TargetCol & r).Value = "" Then
Rows(r).Delete
End If
Next
End Sub

Regards,
Per
 
Back
Top