My user wants to see the detail for all subtotal categories except for one,
which she wants to see the summary data only.


Selection.Subtotal GroupBy:=1, Function:=xlSum, TotalList:=Array(3, 4, 5,
6, 7, _
' 8, 9), Replace:=True, PageBreaks:=False, SummaryBelowData:=True
' Range("A1:I1").Select
' ActiveWorkbook.Save