Delete row based on Cell value

I am trying to write a macro that will go through my inventory sheet and delete all rows that have a value of zero or less in column F. The worksheet changes in size every week and I need it to adjust to the overall size.

A line such as:

Please Login or Register  to view this content.

will get the last used row in column A (i.e., column 1).
Then,

Please Login or Register  to view this content.

Will start the test from the BOTTOM of the range. Because moving from the top down, the row below a deleted row will move up to its place and thus be skipped when Ndx increments to the next value.

How about turning on the Data > Filter > AutoFilter and doing a Custom filter in column F for less than or equal to zero?

That would show you all the items all at once, hiding the others. You could then delete all the visible rows, then turn off the AutoFilter and you're left with the rest.

I am using this code, but I need it to delete everything that is zero or less.

Sub Delete_Rows()
Dim rng As Range, cell As Range, del As Range
Set rng = Intersect(Range("F:F"), ActiveSheet.UsedRange)
For Each cell In rng
\If (cell.Value) = "0" _
Or (cell.Value) = "-1" Then
If del Is Nothing Then
Set del = cell
Else: Set del = Union(del, cell)
End If
End If
Next cell
On Error Resume Next
del.EntireRow.Delete
End Sub

The same suggestion in a macro format:

Please Login or Register  to view this content.