all subtotals have summary except one
 

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