Как правильно вставить строки?

[Kostinok]

Здравствуйте.
Начал разбираться с VBA совсем не давно, поэтому ничего из help-а (тем более англ.) не понял. Кстати если у кого есть прошу поделиться русским Helpo-м VBA Excel!!!
Прошу помощи с написанием следующего макроса, который должен добавить после ячейки с числовым значением количество строк равное этому числовому значению, пока не кончаться значения. То есть

Таблица:
--- А
1--3
2--2
3--4

Таблица после выполнения макроса
--- А
1--3
2--Вставленная пустая строка
3--Вставленная пустая строка
4--Вставленная пустая строка
5--2
6--Вставленная пустая строка
7--Вставленная пустая строка
8--4
9--Вставленная пустая строка
10--Вставленная пустая строка
11--Вставленная пустая строка
12--Вставленная пустая строка

Заранее спасибо!

[IgorGO]

Sub AddSameRows()
  For r = Cells(Rows.Count, 1).End(xlUp).Row To 1 Step -1
    Rows(r + 1 & ":" & r + Cells(r, 1)).Insert Shift:=xlDown
  Next
End Sub

[Kostinok]

Спасибо!
Но на строке

Rows(r + 1 & ":" & r + Cells(r, 1)).Insert Shift:=xlDown

Выдал ошибку: Run-time error '13':
Type mismatch

[Kostinok]

Прошу прощения. Все работает. Не могли бы вы сделать пояснения к вашему коду, как именно он работает?

[IgorGO]

вот как должно работать

Sub AddSameRows()
  For r = Cells(Rows.Count, 1).End(xlUp).Row To 1 Step -1
    If Int(Cells(r, 1)) > 0 Then Rows(r + 1 & ":" & r + Int(Cells(r, 1))).Insert Shift:=xlDown
  Next
End Sub

только в колонке А пишите числа, пожалуйста

[IgorGO]

Оно и с первого раза работало бы, если б числа писать подряд, начиная с первой ячейки.
во втором варианте допускаются пустые ячейки и заполнять колонку не обязательно с первой ячейки.
Одно условие остается - в колонке А должны быть числа. Если написать в какую-то ячейку колонки А "крокодил" - снова увидите сообщение об ошибке

[Kostinok]

Как я понял

Sub AddSameRows()
   'Самое легкое - название кода
  For r = Cells(Rows.Count, 1).End(xlUp).Row To 1 Step -1
    'Условие: Пока значение в ячейке A1 "Cells(Rows.Count, 1)" 
    'не уменьшиться до 1 с шагом 1 (не понял End(xlUp).Row)
    'Выполнять функцию
    If Int(Cells(r, 1)) > 0 Then Rows(r + 1 & ":" & r + Int(Cells(r, 1))).Insert Shift:=xlDown
    'Если целое число в ячейке A1 Int(Cells(r, 1)) > 0, то
    'вставить вниз Insert Shift:=xlDown столбцы Rows(r + 1 & ":" & r + Int(Cells(r, 1)))
    'r=3 в первом случае и Rows(3 + 1:3 + Int(Cells(r, 1)))
  Next
    'Перейти к следующему, пока значение не будет меньше 0
End Sub

Если можно подправте пожалуйста мои нелепые пояснения, просто надо хорошо понять код