Sub testit()
For i = 10 to 4 step -1
If Cells(i,"B").Value = "x" Then Cells(i,"B").EntireRow.Delete
Next i
End Sub
For i = 10 to 4 step -1
If Cells(i,"B").Value = "x" Then Cells(i,"B").EntireRow.Delete
Next i
Range("A1:D1000").Autofilter Field:=1,Criteria1:="????X*"
...
Range("A1:D1000").SpecialCells(xlCellTypeVisible).EntireRow.Delete