Giving the user the option to amend a portion of a fixed formula before macro is run

[Gti182]

hi all,

I have a bit of code which inserts 2 formula's into cells which i then use as criteria for a sort/filter.
Currently it filters 2 date columns to include all dates between today's date and 3 months into the future.

It now seems users might want to see dates further into the future e.g. 5 months. Is it possible to give the user the option on how many months into the future they can filter?

edit: perhaps something like an input box?

Range("R2").Select
    ActiveCell.FormulaR1C1 = "=""<""&EDATE(TODAY(),3)"
Range("S2").Select
    ActiveCell.FormulaR1C1 = "="">""&TODAY()"
     
Columns("A:O").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
        "R1:S2"), CopyToRange:=Range("T1"), Unique:=False