For your problem :
his is the macro but it is in the VBeditor,you must first delete the coloum and then again run the macro "min" in the VBeditor
Code:
Sub TotalTableCellValues()
Dim cTable1Cell As Cell
Dim cTable2Cell As Cell
Dim cSumCell As Cell
Dim iCellTotal As Long
' Set variable equal to cell A1 of table 1.
Set table1Cell = ActiveDocument.Tables(1).Cell(Row:=1, Column:=1)
' Set variable equal to cell A1 of table 2.
Set table2Cell = ActiveDocument.Tables(2).Cell(Row:=1, Column:=1)
' Set variable equal to cell A2 of table 2.
Set cSumCell = ActiveDocument.Tables(2).Cell(Row:=2, Column:=1)
' Calculate totals
iCellTotal = Val(table1Cell.Range.Text) + Val(table2Cell.Range.Text)
' Insert result of calculation into cell A2 of Table 2.
cSumCell.Range.Text = iCellTotal
End Sub
Bookmarks