subtotal for many columns

[Chimborasso]

Hi everyone,

I have a table with 3400 columns, and i need to subtotal my database. If I use the subtotal function, I would have to select all the 3400 columns manually. However, also the VBA code that I found should contains the numbers from 2 until 3400 under the TotalList...

Sub Test()
    Range("A1").CurrentRegion.Subtotal GroupBy:=1, Function:=xlSum, TotalList:=Array(2, 3, 4, 5, 6, ), _
        Replace:=True, PageBreaks:=False, SummaryBelowData:=True
End Sub

Somebody has any idea? The number of rows in the subtotal are not the same for each subtotal

Many thanks!