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!

--
STEVE
-----------------------------------------------------------------------
STEVEB's Profile: http://www.excelforum.com/member.php...nfo&userid=187
View this thread: http://www.excelforum.com/showthread.php?threadid=49763