Return Subtotal for Table Columns

[manster_mg]

I have an excel file that has been converted into a table.
I tried to use the code below to have subtotals returned at the bottom of the table.
It did not work. How can I fix this?

    Range("Table1[[#Totals],[DS Fcst]]").Select
    ActiveSheet.ListObjects("Table1").ListColumns("DS Fcst").TotalsCalculation = _
        xlTotalsCalculationSum