Issue with For Next and If Then statement

[needhelpplease]

I want to delete every row that does not have 28168-59 or 19062-59 in column B, except of course the header.<?xml:namespace prefix = o ns = "urn:schemas-microsoft-comfficeffice" /><o></o>
<o></o>
This worked (another than the header part) before I added an OR with another part#, but now that I have both, it’s deleting everything in the spreadsheet.<o></o>
<o></o>
Any ideas?<o></o>
<o></o>
Sub main()<o></o>
Dim ws As Worksheet<o></o>
<o></o>
Set ws = ActiveSheet<o></o>
<o></o>
For i = ws.Range("B65536").End(xlUp).Row To 1 Step -1<o></o>
If ws.Cells(i, 2) <> "28168-59" Or ws.Cells(i, 2) <> "19062-59" Then<o></o>
<o></o>
ws.Rows(i).Delete<o></o>
<o></o>
End If<o></o>
Next<o></o>
<o></o>
End Sub<o></o>

 

[ayazgreat]

Try this

Sub main()
Dim ws As Worksheet
Dim i As Long
Set ws = ActiveSheet
For i = ws.Range("B65536").End(xlUp).Row To 1 Step -1
If ws.Cells(i, 2) <> "28168-59" And ws.Cells(i, 2) <> "19062-59" Then
ws.Rows(i).Delete
End If
Next i
End Sub

 

[needhelpplease]

Thanks! That worked. Loops have never been my forte.

If I want the loop to stop before the header row, would I change the <?xml:namespace prefix = o ns = "urn:schemas-microsoft-comfficeffice" /><o></o>
<o> </o>
For i = ws.Range("B65536").End(xlUp).Row To 1 Step -1<o></o>
<o> </o>
To….Row To 2 Step -1?<o></o>
<o> </o>
<o> </o>
<o> </o>
<o></o>