Set w = New Word.Application
w.Visible = True
With w.Selection
.Tables.Add Range:=w.Selection.Range, NumRows:= 1 , NumColumns:= _
         6 , DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:= _
        wdAutoFitFixed
.Tables( 1 ).Cell( 1 ,  1 ). ...... работа с таблицой

.MoveDown Unit:=wdLine, Count:= 1 
        .TypeParagraph

.Tables.Add Range:=w.Selection.Range, NumRows:= 1 , NumColumns:= _
         6 , DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:= _
        wdAutoFitFixed

.Tables( 1 ).Cell( 1 ,  1 ). ...... работа с таблицой
End With