Delete Entire Rows Where Column IV Contains "x"

I have the following code to delete entire rows where column IV contains "x".

With ThisWorkbook.Sheets("Sheet3")
With .Range("IT1", .Range("IV" & Rows.Count).End(xlUp))
.AutoFilter Field:=1, Criteria1:="x"
.Offset(1).EntireRow.Delete
.AutoFilter
End With
End With

End Sub
[/Code ]

For a reason that I can't see, it is deleting not only the row that contains the "x" (there is never more than one row with an "x" in column IV), but also the row immediately below it.