Macro to select date range in slicer

I have a pivot table that has several months worth of data. I have several pivot charts based on that data, and a date slicer linked to multiple charts to select the date range. What I would like to add is a button that lets me automatically select the most recent 7 days of data. Is it possible to have a macro that will update my slicer filter?

My workbook is still under construction, and I'm afraid it would only complicate the question.

I recorded a macro while I manually selected the dates I wanted in the slicer, and this is the code that was generated:

Please Login or Register  to view this content.

Is there a way to automate and simplify this? It seems like it should be relatively easy, but I don't know enough VBA to get very far.