Nested Subtotal adding two Grand Totals

[ExcelNoob222]

Hi,

When I do this manually using the subtotal menu under data I get only one grand total. However when I use the below VBA it adds two grand totals:

Selection.Subtotal GroupBy:=3, Function:=xlSum, TotalList:=Array(8, 11), _
        Replace:=False, PageBreaks:=False, SummaryBelowData:=True
    Selection.Subtotal GroupBy:=5, Function:=xlSum, TotalList:=Array(8, 11), _
        Replace:=False, PageBreaks:=False, SummaryBelowData:=True
    Range("A1").Select

Any suggestions? Thanks.

 

[ExcelNoob222]

In case anyone else runs into this issue in the future, I was able to figure out this work around:

On Error Resume Next
   Cells(Columns(5).Find(What:="*Grand Total*", LookIn:=xlValues).Row, 1).EntireRow.Delete

 

[Major_Havoc]

It looks as though the user found a work around, but I also wanted to share what worked for me in not creating the second Grand Total to begin with. Like the original example, I ran two subtotal routines one after another and came up with two Grand Totals, but when I reset the range used for the second subtotal routine to cover the entire expanded range after the first subtotal routine, the second Grand Total doesn't get created.

VBA Code:
Set rngTargetScope = Range("ExecSumStart").CurrentRegion
rngTargetScope.Subtotal GroupBy:=intPresLoc, Function:=xlSum, TotalList:=Array(intHomesLoc, intNTVLoc, intFTVLoc, _
intFPVLoc, intPrcLoc, intELPLoc, intBaseLoc, intOptsLoc, intExcDLoc, intOOMDLoc, intOMDLoc, intLOTLoc, _
intVARLoc, intFIXLoc, intTDirLoc, intOSVLoc), Replace:=True, PageBreaks:=False, _
SummaryBelowData:=True
Set rngTargetScope = Range("ExecSumStart").CurrentRegion
rngTargetScope.Subtotal GroupBy:=intRgnLoc, Function:=xlSum, TotalList:=Array(intHomesLoc, intNTVLoc, intFTVLoc, _
intFPVLoc, intPrcLoc, intELPLoc, intBaseLoc, intOptsLoc, intExcDLoc, intOOMDLoc, intOMDLoc, intLOTLoc, _
intVARLoc, intFIXLoc, intTDirLoc, intOSVLoc), Replace:=False, PageBreaks:=False, _
SummaryBelowData:=True