Macro to total each column in Table

[FrankMcNally]

This is a simple solution I'm sure, but I can't find it!!

I have created a macro that makes a Table of Columns A:M.
I have figured out the VBA Code to 'turn-on' the Total Row at the bottom.
I need the coding to Sum Columns D,E,F,G,H,I,J,K,L & M?

I found:

Range("D33:M33").AutoFill Destination:=Range("D33:M33"), Type:=xlFillDefault

but that's not it.

Any and all help is appreciated.

 

[FrankMcNally]

Update: This works but it's bulky

ActiveSheet.ListObjects("Table1").ListColumns("Revised Budget"). _
        TotalsCalculation = xlTotalsCalculationSum
    Range("E33").Select
    ActiveSheet.ListObjects("Table1").ListColumns("Disbursed").TotalsCalculation = _
        xlTotalsCalculationSum
    Range("F33").Select
    ActiveSheet.ListObjects("Table1").ListColumns("Accrual").TotalsCalculation = _
        xlTotalsCalculationSum
    Range("G33").Select
    ActiveSheet.ListObjects("Table1").ListColumns("Banked").TotalsCalculation = _
        xlTotalsCalculationSum
    Range("H33").Select
    ActiveSheet.ListObjects("Table1").ListColumns("Sub-Total").TotalsCalculation = _
        xlTotalsCalculationSum
    Range("I33").Select
    ActiveSheet.ListObjects("Table1").ListColumns("Forecast").TotalsCalculation = _
        xlTotalsCalculationSum
    Range("J33").Select
    ActiveSheet.ListObjects("Table1").ListColumns("Planned").TotalsCalculation = _
        xlTotalsCalculationSum
    Range("K33").Select
    ActiveSheet.ListObjects("Table1").ListColumns("Sub-Total2").TotalsCalculation _
        = xlTotalsCalculationSum
    Range("L33").Select
    ActiveSheet.ListObjects("Table1").ListColumns("Total").TotalsCalculation = _
        xlTotalsCalculationSum

 

[Fluff]

How about

Sub FrankMcNally()
   Dim Ary As Variant
   Dim i As Long
   
   Ary = Array("Revised Budget", "Disbursed", "Accrual", "Banked", "Sub-Total", "Forecast", "Planned", "Sub-Total2", "Total")
   With ActiveSheet.ListObjects("Table1")
      For i = 0 To UBound(Ary)
         .ListColumns(Ary(i)).TotalsCalculation = xlTotalsCalculationSum
      Next i
   End With
End Sub