Форум по VBA и MS Office

Есть много таблиц с разным количеством строк. Необходимо объединить 10 и 11 столбец каждой строки.
Код для объединения одной строки есть, а вот как для разного количества строк сделать?

Спойлер

Sub Tables1()

If ActiveDocument.Tables.Count >= 1 Then
With ActiveDocument.Tables(1)
.Cell(Row:=2, Column:=10).Merge _
MergeTo:=.Cell(Row:=2, Column:=11)
  End With
End If

End Sub

[свернуть]

Поиск последней строки в таблице

Спойлер

Sub GotoLastRowOfLastTable()

'поиск последней строки в таблице

Dim tbl As Table
Dim tbl_cnt As Long
tbl_cnt = ActiveDocument.Tables.Count
If tbl_cnt > 0 Then
    Set tbl = ActiveDocument.Tables(tbl_cnt)
    tbl.Rows(tbl.Rows.Count).Cells(1).Select
End If
End Sub

[свернуть]

Макрос обрабатывает все таблицы в документе.

Sub Макрос()

    Dim Таблица As Table
    Dim i As Long
   
    Application.ScreenUpdating = False
    For Each Таблица In ActiveDocument.Tables
        For i = 1 To Таблица.Rows.Count
            Таблица.Cell(i, 10).Merge MergeTo:=Таблица.Cell(i, 11)
        Next i
    Next Таблица
    Application.ScreenUpdating = True

End Sub

Спасибо, большое