Row insert etme

[MustafaGenc]

Herkese iyi çalışmalar.
Excelde istediğim yerden itibaren istediğim sayıda rowu nasıl insert ederim.
şöyle bir kot yazdım. ama row.select işleminde problem var zanlımca

w = 1
For tt = 1 To 36
Rows(CStr(w) & ":1").Select
    For i = 1 To 4
        Selection.EntireRow.Insert
    Next i
w = w + 36
Next tt

Bu kod sonucunda 36*4 adet rowu 1 nci satırdan itibaren insert ediyor. fakat ben 1,36,72,....nci satırlardan itibaren 4'er row insert etmesini istiyorum. Nasıl çözebilirim.
Yardımlarınız için şimdiden teşekkürler.

 

[veyselemre]

[vb:1:430f3176e7]Sub DENE()
Rows("73:76").Insert Shift:=xlDown
Rows("37:40").Insert Shift:=xlDown
Rows("2:5").Insert Shift:=xlDown
End Sub[/vb:1:430f3176e7]

 

[MustafaGenc]

verdiğiniz şeklinde değiştirdim

w = 1
For tt = 1 To 10
    Rows(CStr(w) & ":" & CStr(w + 3)).Insert shift:=xlDown
    w = w + 36
Next tt

tam istediğim gibi çalışıyor şu an.
teşekkür ederim.