Sub DeSelect_SomeThing()
    Dim filt As String
filt = "*" & Sheets("Sheet2").Cells(2, 2).Text & Sheets("Sheet2").Cells(2, 3).Text & "*"
With Sheets("Sheet1")
    .AutoFilterMode = False
    With .UsedRange
        .AutoFilter field:=1, Criteria1:="<>" & filt, Operator:=xlFilterValues
    End With
End With
End Sub