テーブル.ListColumns("列名")
テーブル.ListColumns.Add
テーブル.ListColumns.Add(インデックス)
ListColumn
列.Range(1)
列.Total
WorksheetFunction.Subtotal(109, 列.Range)