Удаление строк в автоформируемой при слиянии таблице - VBA

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

Добрый день! Есть шаблон, в котором таблица с полями MergeField наполняется автоматически. Мне необходимо настроить удаление строк, в которых повторяются значения в определенной колонке (аналогично действию "Данные - Удалить дубликаты" в Excel). Шаблон и пример результата во вложении - по третьей колонке нужно убрать дубликаты.

Решение задачи: «Удаление строк в автоформируемой при слиянии таблице»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Sub RemoveDuplicates()
    If Selection.Information(wdWithInTable) = 1 Then Exit Sub
    Dim i As Long
    Dim oTbl As Table
    Set oTbl = Selection.Tables(1)
    i = oTbl.Rows.Count
    For i = oTbl.Rows.Count To 2 Step -1
        Dim ocell As Cell
        If oTbl.Cell(i, 3).Range.Text = oTbl.Cell(i - 1, 3).Range.Text Then
            oTbl.Rows(i - 1).Delete
        End If
    Next
End Sub