Loop to delete rows based on value.

[bopsgtir]

I have the below code but it doesnt seem to work, ive run through the code and if seems to be looping and looking at each cell but it never executes the rows(Rw).delete.


is there something im missing here?

Dim LastTableCell As Long
Dim Rw As Long

   LastTableCell = Cells(Rows.Count, "A").End(xlUp).Row


For Rw = LastTableCell To 2 Step -1
With Cells(LastTableCell, "E")
If .Value = "UNKNOWN" Then
Rows(Rw).Delete SHIFT:=xlUp
End If
End With
Next Rw