VBA Excel在动态创建的表上插入AutoSum

Question

我连接到数据库以使用数据填充excel表。我目前能够连接，执行一个SQL查询，迭代结果并将其格式化为一个没有问题的表。我有一个列我想要应用AutoSum，所以就像在Excel中创建表格和格式为表格一样，您可以选择表格下的最后一个单元格，然后单击公式 - ＆gt;自动总和。这为您提供了一个总和，它会根据您要在

上过滤的列来调整表格

如何通过代码将相同类型的自动求和添加到我的vba excel表中？

'Other DB connection and SQL query code

Dim row As Double
row = 1

Do Until rs.EOF
    'Doing inserts from database
    Sheet4.Cells(row, 1).Value = rs.Fields("colname").Value
Loop

'Set it to be a table
Dim rng As Range
Set rng = Sheet4.Range(Sheet4.Range("A1"), Sheet4.Range("I" & row))
Sheet4.ListObjects.Add(xlSrcRange, rng, , xlYes).Name = "TTable"