Selection.InsertColumnsRight (Word)

Inserts columns to the right of the current selection.

Microsoft Word inserts as many columns as there are in the current selection. To use this method, the current selection must be in a table.

ActiveDocument.Tables(1).Columns(2).Select 
Selection.InsertColumnsRight