Excel VBA Automating Subtotals Function

[specious]

I am trying to automate the subtotals function within a preformatted worksheet (column headings are in a certain format). I tried to create a pivot table, but it required me to change the format of the column headings. Any ideas on how I can accomplish this?

Thank You.

 

[Store300]

You can automate the Data>Subtotal function with

[MyRange].Subtotal GroupBy:=[Column to Subtotal on (e.g. 1), Function:=xlSum, TotalList:=[Columns to Subtotal e.g. Array(2, 3, 4)], Replace:=True, PageBreaks:=False, SummaryBelowData:=True Store300

Store300@ftnetwork.com