Sub Test()
Val1 = Range("I1").Value
Val2 = Range("I2").Value
If Val2 = 0 Then
ActiveSheet.Range("A:D").AutoFilter Field:=2, Criteria1:= _
"=WWW-" & Val1 & "*"
Else
ActiveSheet.Range("A:D").AutoFilter Field:=2, Criteria1:= _
"=WWW-" & Val1 & "*", Operator:=xlOr, Criteria2:="=WWW-" & Val2 & "*"
End If
End Sub