Add Method (Cells, Rows, and Columns Collections) Example

This example inserts a new row before the first row in the selection.

If Selection.Information(wdWithInTable) = True Then
    Selection.Rows.Add BeforeRow:= Selection.Rows(1)
End If

This example creates a table with two columns and two rows in the active document and then adds another column before the first column. The width of the new column is set at 1.5 inches.

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

This example adds a row to the first table and then inserts the text "Cell" into this row.

counter = 1
Set myTable = ActiveDocument.Tables(1)
Set newrow = myTable.Rows.Add(BeforeRow:=myTable.rows(1))
For Each c In newrow.Cells
   c.Range.InsertAfter Text:="Cell " & counter
   counter = counter + 1
Next c