score:3

Accepted answer
Dim r As Range
Set r = Sheets("Sheet1").Range("A1:N100") 'change to suit
r.AutoFilter Field:=14, Criteria1:="<>-" _
    , Criteria2:="<>", Operator:=xlAnd

Related Articles