Solved: Subtotal header row

[Meatball]

What does this code need to avoid getting the column label question window when the macro runs? Row 7 is always the label.Rows("7:500").Select
Range("a8").Activate
Selection.Subtotal GroupBy:=8, Function:=xlSum, TotalList:=Array(11, 13, _
15), Replace:=True, PageBreaks:=False, SummaryBelowData:=False
I used the recorder to get this.

[Meatball]

Found the answer after doing some more searching. Used Application.DisplayAlerts = False before and True after that part of the code.