Sub SimpleOrFilter() Worksheets("SalesReport").Select Range("A1").AutoFilter Range("A1").AutoFilter Field:=4,Criteria1:="=A", Operator:=xlOr, Criteria2:="=B"End Sub