Advanced Filtering

You can use the auto filter for this. with auto filter on, run the following code:

Sub Autofilter()
'

    Selection.Autofilter Field:=1, Criteria1:="=1", Operator:=xlOr, _
        Criteria2:="=2"
    Selection.Autofilter Field:=3, Criteria1:="=diff", Operator:=xlAnd
    Selection.Autofilter Field:=4, Criteria1:="=25", Operator:=xlOr
    Selection.Autofilter Field:=5, Criteria1:="=6", Operator:=xlOr, _
        Criteria2:="=7"
    Selection.Autofilter Field:=6, Criteria1:="=2,25", Operator:=xlAnd
End Sub

The VBA code I wrote above can be applied to an auto filter, but you should know the number of columns there are or at least where the filtering criteria columns are positioned...