Объединение ячеек в Word - VB

Формулировка задачи:

Здравствуйте.
Заполняю таблицу Ворд из VB.
В некоторых ячейках встречаются повторяющиеся данные. Хочу объединить их в одну ячейку.

If TableWord.Cell(i, 10).Range.Text = TableWord.Cell(i - 1, 10).Range.Text Then
              
     ActiveDocument.Tables(1).Cell(i, 10).Merge MergeTo:=ActiveDocument.Tables(1).Cell(i - 1, 10)
          
     End If

Получаю ошибку 4605 "Данная команда не допустима."
Пожалуйста помогите разобраться.
Спасибо.

Решение задачи: «Объединение ячеек в Word»

textual
                            Листинг программы 
                        
                            TableWord.Cell(i, 10).Merge MergeTo:=TableWord.Cell(TableWord.Rows.Count - 1, 10)