ListObject Total Each Column

[goss]

Hiall,

Using Excel 2013.
How do I get the total to show in the footer for each column in a Table (ListObject) not just the last column?

thx
w

With ws
                Set rng = .Cells(1, 3).CurrentRegion
                Set loSummary = .ListObjects.Add(SourceType:=xlSrcRange, _
                                                 Source:=rng, _
                                                 Destination:=.Cells(1, 3))

            
                With loSummary
                    .Name = "Summary"
                    .TableStyle = "TableStyleMedium2"
                    .ShowTotals = True
End with
end with