Range.TopLevelTables (Word)

Returns a Tables collection that represents the tables at the outermost nesting level in the current range.

This method returns a collection containing only those tables at the outermost nesting level within the context of the current range. These tables may not be at the outermost nesting level within the entire set of nested tables. For information about returning a single member of a collection, see Returning an object from a collection.

Documents.Add 
ActiveDocument.Tables.Add Selection.Range, _ 
 3, 3, wdWord9TableBehavior, wdAutoFitContent 
With ActiveDocument.Tables(1).Range 
 .Copy 
 .Cells(1).Range.Text = .Cells(1).NestingLevel 
 .Cells(5).Range.PasteAsNestedTable 
 With .Cells(5).Tables(1).Range 
 .Cells(1).Range.Text = .Cells(1).NestingLevel 
 .Cells(5).Range.PasteAsNestedTable 
 With .Cells(5).Tables(1).Range 
 .Cells(1).Range.Text = _ 
 .Cells(1).NestingLevel 
 End With 
 .Columns(2).Select 
 Selection.Range.TopLevelTables(1).Select 
 End With 
End With