Subtotals

[STEVEB]

Hi,

Does anyone have any suggestions for the following:

I am trying to subtotal by account & then division. My code works fin
except the last division subtotal is below the account total. My cod
is as follows:

Range("A1").Select
Application.CutCopyMode = False
Selection.Subtotal GroupBy:=1, Function:=xlSum, TotalList:=Array(7, 8
9), _
Replace:=True, PageBreaks:=False, SummaryBelowData:=True
Selection.Subtotal GroupBy:=5, Function:=xlSum, TotalList:=Array(7, 8
9), _
Replace:=True, PageBreaks:=False, SummaryBelowData:=True
Selection.Subtotal GroupBy:=2, Function:=xlSum, TotalList:=Array(7, 8
9), _
Replace:=False, PageBreaks:=False, SummaryBelowData:=True

Here is an example of the result (I would like the 2090 total above th
62973 total)
Division Account
40 0005 0 12144 62973
0005 Total
40 0641 0 13051 62973
0641 Total
40 2090 0 11878 62973
62973 Total
2090 Total


Any help would be greatly appreciated!

 

[Dave Peterson]

Maybe...

Multilevel subtotals are in the wrong position in Excel 2002 and in Excel 2003
http://support.microsoft.com/default.aspx?scid=kb;en-us;831824

 

[STEVEB]

Thanks Dave, I appreciate your help!