Помогите разобраться со вставкой значения в колонку - VB

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

Доброго всем веремени суток!Помогите разобраться,пожалуйста.
Есть уже написанный огромный макрос (на 43 листа А4).Мне его нужно что бы он выполнял и еще одну функцию.Написон он был давным-даывно и непонятно кем.Поэтому как смогла так разобралась.И этот макрос открывает текстовые документы и берет из них определенные данные ,а затем все это вставляет в эксель.
Мне необходимо было что бы добавилось еще одно поле.Я открываю txt'шник и беру из него 21 столбец.Вот что написала:

Private Sub sPOSTAVSIC()
 ReDim dvPostavsicDs(21, 0)
 Open txtPath & "Остатки_" & tFilialName & ".txt" For Input As #1
  Do While Not EOF(1)
   Line Input #1, iLine
   dvTmpDs = Split(iLine, vbTab)
      'ReDim Preserve dvPostavsicDs(UBound(dvPostavsicDs) + 1)
   dvPostavsicDs(UBound(dvPostavsicDs), 0) = dvTmpDs(20)
  Loop
 Close #1
End Sub

Затем необходимо все это вставить в эксель.Я добавляю в процедуру где данные вставляются в эксель строчку:

Ex.Range("AZ5").Value = dvPostavsicDs(UBound(dvPostavsicDs), 0)

И на месте встаки у меня ошибка:значение выходит за выделенный диапазон.
Подскажите куда копать тут.что не так?

Решение задачи: «Помогите разобраться со вставкой значения в колонку»

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

                            Private Sub sPOSTAVSIC()
 Dim i As Integer
 i=5
 Open txtPath & "Остатки_" & tFilialName & ".txt" For Input As #1
  Do While Not EOF(1)
   Line Input #1, iLine
   dvTmpDs = Split(iLine, vbTab)
   Cells(i, 52) = dvTmpDs(20)
   i=i+1
  Loop
 Close #1
End Sub

                        