Add Method (Tables Collection) Example

This example adds a blank table with three rows and four columns at the beginning of the active document.

Set myRange = ActiveDocument.Range(0, 0)
ActiveDocument.Tables.Add Range:=myRange, NumRows:=3, NumColumns:=4

This example adds a new, blank table with 6 rows and 10 columns at the end of the active document

Set MyRange = ActiveDocument.Content
MyRange.Collapse Direction:=wdCollapseEnd
ActiveDocument.Tables.Add Range:=MyRange, NumRows:=6, _
    NumColumns:=10

This example adds a table with three rows and five columns to a new document and then inserts data into each cell in the table.

Set newDoc = Documents.Add
Set myTable = newDoc.Tables.Add(Selection.Range, 3, 5)
With myTable
For x = 1 to 3
    For y = 1 to 5
        .Cell(x,y).Range.InsertAfter "Cell " & x & "," & y
    Next y
Next x
.Columns.AutoFit
End With