Selection.InsertCells (Word)

Agrega celdas a una tabla existente.

El número de celdas insertadas es igual al número de celdas de la selección.

InsertCells (ShiftCells)

ShiftCells: Especifica cómo se insertan las celdas en las columnas y filas existentes de la tabla.

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