Specifying dates from pivot table?

[Brink57331]

I'm getting data each week in a pivot table and need to pull data based on a specified date range (or the most recent X full weeks). I got this by recording macro
With ActiveWorkbook.SlicerCaches("Slicer_Created1")
.SlicerItems("1/6/2018 - 1/10/2018").Selected = False
.SlicerItems("11/25/2017 - 12/1/2017").Selected = True
.SlicerItems("12/16/2017 - 12/22/2017").Selected = True
.SlicerItems("12/2/2017 - 12/8/2017").Selected = True
.SlicerItems("12/23/2017 - 12/29/2017").Selected = True
.SlicerItems("12/30/2017 - 1/5/2018").Selected = True
.SlicerItems("12/9/2017 - 12/15/2017").Selected = True
.SlicerItems("10/14/2017 - 10/20/2017").Selected = False
.SlicerItems("10/21/2017 - 10/27/2017").Selected = False

Since the date range changes I'm looking for an option to set the start date and end date. Preferably a popup calendar but a message box would work.

Thanks in advance for the help