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