Sub SimpleAndFilter() Worksheets("SalesReport").Select Range("A1").AutoFilter Range("A1").AutoFilter Field:=4, _ Criteria1:=">=A", _ Operator:=xlAnd, Criteria2:="<=EZZ" End Sub