Не постоянный шаг в цикле

[Questru]

Добрый день
Написал макрос
Вот только уперся в проблему.
Выделение ячеек и заполнение идет с переменным шагом в зависимости от числа в столбце

Вот изображение. Я понимаю, что в местах, обведенные красным, нужно как-то шаг прописать. Но как понять не могу...



В приложении пример.

P.S.
При запуске надо удалить вкладку "Output".

[IgorGO]

     Dim R as long
    ....
    Columns("E:E").EntireColumn.AutoFit
    R = 2
    For i = 2 To k
      L = Round(Cells(i, 2) / 10, 0)
      Cells(R, 5) = Cells(i, 1)
      Cells(R + 1, 5) = Cells(i, 2)
      Cells(R, 5).Resize(L, 1).Select
      R = R + L
      ....

[Questru]

Большое спасибо!