Помогите разобраться. Объединение ячеек работает для любого диапазона, но только не для первой колонки, если диапазон в один столбец.  
 
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

При переносе макроса на другой компьютер он запускается один раз.  
При попытке повторного запуска выдается сообщение о том, что произошла ошибка и открытие файла невозможно. Исправляется только копированием файла сверху.  
Что это может быть? Любые идеи.  
Есть подозрение, что проблема в размере макроса. Есть ли какие-нибудь ограничения или переменные, которые можно подправить, чтобы этого избежать? Так как разбиение на несколько форм займет неделю. :(  
 
Переношу с 32-х разрядной версии офиса на 64-х разрядную.