Necesito usar un autofiltro con un criterio variable tengo un código pero no me funciona

Tengo el siguiente código para una macro que filtra datos de una sola columna, necesito que los datos que sean diferentes al valor de inputbox se borren.

Sub borrar_ur()
Dim ur As String

ur = (InputBox("Ingrese la ur a conservar"))

Rows("3:3").Select

Application.CutCopyMode = False

Selection.AutoFilter ActiveSheet.Range("$A$3:$IV$858").AutoFilter Field:=2, Criteria1:="<>*" & ur & "*" _ , Operator:=xlAnd

Rows("4:65500").Select

Selection.Delete Shift:=xlUp

ActiveSheet.Range("$A$3:$IV$65500").AutoFilter Field:=2

End Sub

Como se ve pues me borra todos por el rango, es para versión excel 2003, no hayo como corregirlo.