Can anyone help me out on using a push button macro to include multiple options on a filter (i.e., including all sub departments within a department)? Here's what I used, but all it does is go through (choose) all of the options, then end on the last one listed:

Sheets("Cover Page").Select
Range("B14").Select
ActiveCell.FormulaR1C1 = "Purchased Services"
Range("B16").Select
Sheets("Original BRS2").Select
ActiveSheet.PivotTables("OriginalBRS2").PivotFields("Detailed") _
.ClearAllFilters
ActiveSheet.PivotTables("OriginalBRS2").PivotFields("Detailed") _
.CurrentPage = "Purchased Services - A"
ActiveSheet.PivotTables("OriginalBRS2").PivotFields("Detailed") _
.CurrentPage = "Purchased Services - B"
ActiveSheet.PivotTables("OriginalBRS2").PivotFields("Detailed") _
.CurrentPage = "Purchased Services - C"
ActiveSheet.PivotTables("OriginalBRS2").PivotFields("Detailed") _
.CurrentPage = "Purchased Services - D"
Sheets("Projected BRS2").Select (and so on)

Thanks in advance!