Set Doc = GetObject(DbPath & "\" & ptnName) ' 
For Each t In Doc.Tables
with t
   For i = 1 To RecCount - (i2 - H)
    ' перейти за таблицу с копированием последней строки c образованием новой строки
    .Rows(.Rows.Count).Range.Copy ' Select: Selection.
    '.Rows.Add BeforeRow:=.Rows(.Rows.Count)
    'Selection.MoveDown Unit:=wdLine, Count:= 1 
    .Rows(.Rows.Count -  1 ).Range.Paste
   Next i
end with
next t