Selection.InsertColumnsRight (Word)

Insere colunas à direita da seleção atual.

O Microsoft Word insere o mesmo número de colunas que houver na seleção atual. Para que seja possível usar esse método, a seleção atual deverá estar em uma tabela.

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