Deleting a row by cell value

Hello,

I have this piece of code that should delete an entire row according to some cell value.

Sub user_prep()

Dim newDtop As Long
Dim newDbot As Long
Dim Entry As Range

newDtop = [A1].End(xlDown).Offset(2, 0).Row
newDbot = Range("A" & Rows.Count).End(xlUp).Row

For Each Entry In Range(Cells(newDtop, 1), Cells(newDbot, 1))
    If LCase(Entry.Offset(, 9).Value) = "NULL" Then
    Entry.EntireRow.Delete
End If

Next Entry

End Sub

The code just goes through and does nothing any help would be appreciated.