Next click Formula in Data group. Dim docNew as Document Dim tableNew as Table Set docNew DocumentsAdd Set tableNew docNewTablesAdd SelectionRange 3 3 With tableNew Cell 1 1RangeInsertAfter 10 Cell 2 1RangeInsertAfter 15 Cell 3 1AutoSum End With. Place your insertion point in an empty cell at the bottom of the Total column insert an extra row if you need to.
Lets talk about the formula.
On the Table Tools Layout tab in the Data group click Formula. A dialog named Formula is displayed typing SUM LEFT in the formula text box. If the cell you selected is at the right end of a row of numbers Word proposes the formula SUM LEFT. This will display a Formula Dialog Box which will suggest a default formula which is SUM LEFT in our case.