Cell Method Example

This example creates a 3x3 table in a new document and inserts text into the first and last cells in the table.

Set newDoc = Documents.Add
Set myTable = newDoc.Tables.Add(Selection.Range, 3, 3)
With myTable
    .Cell(1,1).Range.InsertAfter "First cell"
    .Cell(myTable.Rows.Count, _
        myTable.Columns.Count).Range.InsertAfter "Last Cell"
End With

This example deletes the first cell from the first table in the active document.

If ActiveDocument.Tables.Count >= 1 Then
    ActiveDocument.Tables(1).Cell(1, 1).Delete
End If