программа вставки строк в Excel

[pavsem7]

Не подскажите ли код, вставляющий строки в лист Excel.
Мне нужно после 8, 10, 12,....3750, 3752 строки на первом и единственном листе вставить по 2 пустых строки.
У бухгалтера две похожие ведомости по кварталу, которые нужно сравнить на соответствие цифр, в одной на каждый документ по 5 строк, а в другой на те же документы только по 2 и документов под 2000 штук.
Попробовал через запись макроса, получилось:

Rows("9:9").Select
Selection.Insert Shift:=xlDown
Selection.Insert Shift:=xlDown
Rows("13:13").Select
Selection.Insert Shift:=xlDown
Selection.Insert Shift:=xlDown
Rows("17:17").Select
Selection.Insert Shift:=xlDown
Selection.Insert Shift:=xlDown
Rows("21:21").Select
Selection.Insert Shift:=xlDown
Selection.Insert Shift:=xlDown
....

Как зациклить до 9397 ?

[Coutty]

For num = 9 To 9397 Step 4
Rows(num).Select // вот здесь самостоятельно экспериментируйте. Я не знаю точно в каком виде подставить
Selection.Insert Shift:=xlDown
Selection.Insert Shift:=xlDown
Next

[pavsem7]

Rows(num).Select // вот здесь самостоятельно экспериментируйте. Я не знаю точно в каком »

Сработало в вашем виде!