Columns.Add (Word)
Devuelve un objeto Column que representa una columna agregada a una tabla.
Add (BeforeColumn)
BeforeColumn: Un objeto Column que representa la columna que aparecerá inmediatamente a la derecha de la nueva columna.
Sub AddATable()
Dim myTable As Table
Dim newCol As Column
Set myTable = ActiveDocument.Tables.Add(Selection.Range, 2, 2)
Set newCol = myTable.Columns.Add(BeforeColumn:=myTable.Columns(1))
newCol.SetWidth ColumnWidth:=InchesToPoints(1.5), _
RulerStyle:=wdAdjustNone
End Sub