Макрос на добавление строки при условии

[nichka_koch]

Добрый вечер!
подскажите пожалуйста:
нужно написать макрос, чтобы добавлялась строка, при условии что:
например идут ячейки
0
1
1
0
0
1
2
0
0
0
0
0
0
2
0
0
0
0
3
1
0
0
0

нужно чтобы строка добавлялась после чисел, которые не равны 0, притом прибавлялось такое количество строк, которое указано в ячейке. то есть, сначала 0 - пропускаем, далее 1 и после этой строчки прибавилась одна строчка (так как цифра 1 в ячейке) и тд.

[boa]

Здравствуйте,
если  цифры идут в 1-й колонке, то так

Код: (vb)

Sub addRows()
Dim lRow&
    With ActiveSheet
        For lRow = .UsedRange.Rows.Count To 1 Step -1
            If .Cells(lRow, 1).Value > 0 Then .Rows(lRow + 1 & ":" & lRow + .Cells(lRow, 1).Value).Insert Shift:=xlDown
        Next
    End With
End Sub