Построение таблицы происходит в цикле , так как зависит от циклических параметров. 
Надо чтобы при каждом новом i таблица строилась после предыдущей, а не в уже созданной, то есть каждая новая таблица в новом месте.
Вот так строю
aRows = Doc.RealPayrollRows("MPOT")
   for i = 1 to aRows 
            With Doc.PayrollRow(i, "MPOT")
                
                 Sel.TypeText Data10 & vbCrLf
                set chain = .Agent.chainobj("DRCT")
                Sel.Font.Size = 14
                Sel.Font.Bold = wdToggle
                Sel.typeText .Agent.name & vbCrLf
                dim dRows 
                if  (chain.Count\3)= 0 then
                    dRows = (chain.Count/3)*4
                else dRows = (chain.Count/3 +1)*4
                end if
                Set Tbl = Docword.Tables.Add(Sel.Range, dRows, 3, wdWord9TableBehavior, wdAutoFitContent)
                'Sel.typeText vbCrLf
                'While Tbl.MoveNext
                'Wend
                for k=1 To 3
                for l=1 to t step 4
                    Sel.Font.Size = 12
                    Sel.Font.Bold = wdToggle
                    Tbl.Cell(l,k).Range.Text = ".........."
                next
                
                for g=3 to t step 4
                    Sel.Font.Size = 12
                    Sel.Font.Bold = wdToggle
                   Tbl.Cell(g,k).Range.Text = "Director"
                next
                next
                'идем по связи и записываем все в проводку
                For j = 1 to chain.Count
                     
                     Sel.Font.Size = 14
                     Sel.Font.Bold = wdToggle
                     'Tbl.Value=chain.Item(j).Name
                    for q=2 to dRows step 4 
                        Tbl.Cell(q,j).Range.Text = chain.Item(j).Name
                    next 
                 Next
              end with
        next

Присоединённый файл ( Кол-во скачиваний: 0 )
 Безымянный.jpg 53,48 Kb