Ошибка при переходе на следующую строку при переносе значений из excel в word - VBA

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

Приветствую знатоки vba.. Суть проблемы есть таблица ексель с цифрами и таблица word с объединенными ячейками в которую по закладке переносяться цифры макросом ,но суть проблемы в том что при переходе на следующую строку программа ломаеться.Переход на новую строку таблицы начинаетья с начала таблицы, туда где боковина(выделено красным)... помогите справиться с этим недоразумением.)

Решение задачи: «Ошибка при переходе на следующую строку при переносе значений из excel в word»

textual
                            Листинг программы 
                        

                            Sub macr()
Dim objWord As Word.Application
Dim objDoc As Word.Document, r As Word.Range
  Set objWord = CreateObject("word.application")
  objWord.Visible = True
  Set objDoc = objWord.Documents.Open(ActiveWorkbook.Path & "\blank.docx")
  objWord.Selection.GoTo Name:="zak1"
  For i = 1 To 14
    Set r = objWord.Selection.Range
    For j = 14 To 26
      objWord.Selection.TypeText Text:=CStr(Cells(i, j))
      If i <> 14 Or j <> 26 Then objWord.Selection.MoveRight unit:=wdCell
    Next j
    r.Select
    objWord.Selection.MoveDown ' unit:=wdCell
  Next i
End Sub
                        