I have used the following code, without touching it for 14 or 15 months.
Code: Select all
.DisplayAlerts = False
'.Cells.Select
.Cells.Subtotal GroupBy:=1, Function:=xlSum, TotalList:=Array(4, 5, 6, _
7, 8, 9, 10), Replace:=True, PageBreaks:=False, SummaryBelowData:=True
.Cells.Subtotal GroupBy:=2, Function:=xlSum, TotalList:=Array(4, 5, 6, _
7, 8, 9, 10), Replace:=False, PageBreaks:=False, SummaryBelowData:=True
Any help is greatly appreciated.
Ken