Range.Tables (Word)

Returns a Tables collection that represents all the tables in the specified range.

For information about returning a single member of a collection, see Returning an object from a collection.

Selection.Collapse Direction:=wdCollapseStart 
Set myTable = ActiveDocument.Tables.Add(Range:=Selection.Range, _ 
NumRows:=5, NumColumns:=5) 
myTable.AutoFormat Format:=wdTableFormatClassic2