Объединение ячеек с одинаковым значением (WORD) - VB

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

Помогите пожалуйста с написанием макроса, который бы объединял ячейки 1-ого столбца таблицы с одинаковым значением(например в первой, второй, третей и четвертой ячейке значение 1000, надо объеденить эти ячейки и оставить только одно значение 1000). На одном форуме нашел код, но он не работает

iStart   
    iStart =  
     iFinish   
    iFinish =      
    
     bMerge       
    bMerge = False 
     
     aCell  Word.Cell     
     cCells  Cells 
    
     cCells = ActiveDocument.Tables.Item().Columns.Item().Cells 
         
      aCell  cCells 

            aCell.RowIndex >   
                
                 aCell.Range.Text = cCells.Item(aCell.RowIndex - ).Range.Text  

                         iStart =   
                                iStart = aCell.RowIndex -  

                         iStart <>   
                                iFinish = aCell.RowIndex -  
                                bMerge = True 

             iStart <>   aCell.RowIndex = cCells.Count  
                    iFinish = aCell.RowIndex 
                    bMerge = True 

             bMerge  
              
              bMerge = False 
              MsgBox iStart &  & iFinish 
              iStart =  
                          
     aCell

Решение задачи: «Объединение ячеек с одинаковым значением (WORD)»

textual
                            Листинг программы 
                        
                            ' объединяем (нужен код)