Macro to delete row if cell <> value...

[TShelt]

Hey guys,

I need a short and simple macro that deletes any row that contains "*EDS*" in column A...this is the code I am using but it doesnt seem to be working correctly, it hangs up on line 2...

    
Application.ScreenUpdating = False
    With Sheets("IDs in IBM OU").Range("A1", Range("A" & Rows.Count).End(xlUp))
        .AutoFilter Field:=1, Criteria1:="*EDS*"
        .Offset(1).EntireRow.Delete
        .AutoFilter
    End With
    Application.ScreenUpdating = True