Как автоматически размножить строки со сдвигом вниз? - VBA

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

Ребят,привет! Нужна помощь, никак не могу сообразить и найти формулу(( Необходимо первый столбец с текстом умножить на второй столбец с цифрами и автоматически продублировать строки из первого столбца вниз. Во вложении пример, на первой вкладке сама таблица, во второй как должно получиться, плиз помогите, возможно это и просто, ток не получается у меня...

Решение задачи: «Как автоматически размножить строки со сдвигом вниз?»

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

                            Sub Joologin()
Dim v(), i&, j&
v = Selection.Value
ReDim w(1 To Application.Sum(Selection.Columns(2)), 1 To 2)
j = 1
For i = 1 To UBound(v)
  For j = j To j + v(i, 2) - 1
    w(j, 1) = v(i, 1)
    w(j, 2) = 1
  Next
Next
Selection.Resize(UBound(w)).Value = w
End Sub
                        