Hide Rows with a Value (2 values to hide) then delete visible rows

Okay, I know the basics of what I want, here, but I can't get it to work. I know how to hide with 1 criteria per column, but not 2 different ones. Here's what DOESN'T work, to give you an idea of what I am working with

Dim Lastrow As Long
Application.ScreenUpdating = False
Lastrow = Cells.Find("*", , , , xlByRows, xlPrevious).Row
With Range("A2:I" & Lastrow)
Selection.AutoFilter
.AutoFilter Field:=6, Criteria1:= _
"=<>Available",
Criteria2:="=<>Reshelving"
End With
Range("A2:A" & Lastrow).EntireRow.Delete
ActiveSheet.AutoFilterMode = False
Application.ScreenUpdating = True

Also fighting with me is

Dim Lastrow As Long
Application.ScreenUpdating = False
Lastrow = Cells.Find("*", , , , xlByRows, xlPrevious).Row
With Range("A2:I" & Lastrow)
Selection.AutoFilter
.AutoFilter Field:=6, Criteria1:= _
"=<>Available", Operator:=xlOr, Criteria2:="=<>Reshelving"
End With
Range("A2:A" & Lastrow).EntireRow.Delete
ActiveSheet.AutoFilterMode = False
Application.ScreenUpdating = True

As the above, which seems like it should work, is instead hiding EVERYTHING.

I'm so confused and know just enough about VB to be dangerous. Help? (And many thanks!)

I could be wrong but I think maybe it should be:
"<>Available"
not
"=<>Available"

I think they want to delete everything without those words so it would be:

Please Login or Register  to view this content.

Originally Posted by yudlugar

I think they want to delete everything without those words so it would be:

Please Login or Register  to view this content.

edited in. I forgot that when you use filter you de-select rather than select strings

Thanks! I tried to use

'delete rows without Available or Reshelving in column 6
Dim Lastrow As Long
dim cell as range
Application.ScreenUpdating = False
Lastrow = Cells.Find("*", , , , xlByRows, xlPrevious).Row
for each cell in Range(cells(1,6),cells(lastrow,6)).cells
if not cell.text = "Available" then cell.EntireRow.Delete
if not cell.text = "Reshelving" then cell.EntireRow.Delete
next cell

But it threw an error.

Run-time error '424':
Object Required

Thanks again for the help!

Sorry that was my fault (you can't do an if statement on a cell that was deleted in the previouse if statement)

try this instead

Please Login or Register  to view this content.

That one seems to be deleting rows that contain "Reshelving." It's not doing anything else.

when I ran it it deleted both is Available the only thing in the cell or are there other characters?

in the mean time try

Please Login or Register  to view this content.

Or

Please Login or Register  to view this content.

Yes! Sorry it took me so long to get back. Work's been... crazy. Yes, there are about 5 or 6 different things that can be in that field and I wanted to keep only the things tagged "Available" or "Reshelving."

Good news is, the first one you posted in the most recent reply did what I'm looking for. Thank you, thank you, thank you!

I feel really needy but how do I keep my headers?

Please Login or Register  to view this content.