Sub FilterPromo()

   ActiveSheet.Range("A1:L90").AutoFilter Field:=1, Criteria1:= _
     "=DESCONTO ESTAÇÃO", Operator:=xlOr, Criteria2:="=DESCONTO TOYOTA"
End Sub