To auto-fit to the contents, I added the last line below:
WordBasic.TextToTable ConvertFrom:=1, NumColumns:=2, NumRows:=6, _
InitialColWidth:=wdAutoPosition, Format:=0, Apply:=1184, AutoFit:=1, _
SetDefault:=0, Word8:=0, Style:="Table Grid"
Selection.Tables(1).AutoFitBehavior wdAutoFitContent ' *** Added this