Selection.InsertCells (Word)

Adiciona células a uma tabela existente.

O número de células inserido é igual ao número de células da seleção. Você também pode inserir células usando o método Add do objeto Cells.

InsertCells (ShiftCells)

ShiftCells: Especifica como inserir as células nas colunas e linhas existentes da tabela.

If Selection.Cells.Count >= 1 Then 
 Selection.InsertCells ShiftCells:=wdInsertCellsShiftRight 
 For Each aBorder In Selection.Borders 
 aBorder.LineStyle = wdLineStyleSingle 
 aBorder.ColorIndex = wdRed 
 Next aBorder 
End If