Sub Макрос1()
Dim tb1 As Table, tb2 As Table, r As Range
With ActiveDocument
'создание первой таблицы
    Set tb1 = .Tables.Add(Range:=.Bookmarks("MyBkm").Range, NumRows:=2, NumColumns:=3)
'ввод абзаца после таблицы
    Set r = .Range(tb1.Range.End)
    r.Collapse wdCollapseStart
    r.InsertParagraphBefore
    r.Collapse wdCollapseEnd
'создание второй таблицы
    Set tb2 = .Tables.Add(Range:=r, NumRows:=4, NumColumns:=2)
End With

'доступ к таблицам
tb1.Cell(1, 1).Range = "таб.1"
tb2.Columns(1).Cells.Shading.BackgroundPatternColor = wdColorBrightGreen

End Sub

CaptionLabels.Add ("Моя Таблица")
tb1.Range.InsertCaption Label:="Моя Таблица", _
    Title:=": вставка своего названия", Position:=wdCaptionPositionAbove