Return Subtotal for Table Columns

[Aussiebear]

Use this as a guide and adjust as necessary

Private Sub cmbSummarizeColumns_Click()
    Dim the_sheet As Worksheet
    Dim table_list_object As ListObject
    Dim tblCOL As Long
    Set the_sheet = Sheets("Sheet6")
    Set table_list_object = the_sheet.ListObjects(1)
    With table_list_object
        If Not .ShowTotals Then .ShowTotals = True
        For tblCOL = 1 To 3   'might use To .DataBodyRange.Columns.Count
            .TotalsRowRange.Cells(1, tblCOL) = Application.Sum(.DataBodyRange.Columns(tblCOL))
        Next tblCOL
    End With 
EndSub