Помогите разобраться. Объединение ячеек работает для любого диапазона, но только не для первой колонки, если диапазон в один столбец.  
 
Private Sub MergeProc()  
   Dim oWord  
   Set oWord = CreateObject("Word.Application")  
   oWord.Visible = True  
   oWord.Documents.Add  
 
   Set Range1 = oWord.Documents(1).Range(Start:=0, End:=0)  
   Dim Table1  
   Set Table1 = oWord.Documents(1).Tables.Add(Range1, 3, 4)  
 
   Table1.Rows.Add  
   ' Это работает  
   Set myRange = oWord.Documents(1).Range(Table1.Cell(2, 4).Range.Start, Table1.Cell(3, 4).Range.End)  
   myRange.Cells.Merge  
   ' А для первой колонки не работает  
   Set myRange = oWord.Documents(1).Range(Table1.Cell(2, 1).Range.Start, Table1.Cell(3, 1).Range.End)  
   myRange.Cells.Merge  
End Sub