VBA Code to filter rolling dates from a pivot table

Looking for help with a bit a bit of code that will allow me to filter specific data in a pivot table. Basically I need to select the next six dates, starting with today's date, but can't seem to deselect "all" in the filter prior to selecting the dates that I need. Unfortunately the dates within the table change, so I'm not able to code in specifically which dates to deselect since it changes every day. There are probably multiple ways of accomplishing this, but I can't seem to get any of them to work. Any help is much appreciated!



ActiveSheet.PivotTables("PivotTable1").PivotFields("Check-In Date"). _
EnableMultiplePageItems = True
ActiveSheet.PivotTables("PivotTable1").PivotFields("Check-In Date"). _
CurrentPage = "(All)" '<-------- Any ideas of how to get this to uncheck all dates?
With ActiveSheet.PivotTables("PivotTable1").PivotFields("Check-In Date"). _ClearAllFilters
.PivotItems("9/25/2014").Visible = True '<------- "9/25/2014" will need to be changed to Date() or a variable that is assigned to the same functionality, but this is just an example

Should I assume that this isn't possible or am I not explaining well enough what I'm trying to accomplish?