Makro ile satırlar arası boşluk açma

[akmes]

Merhaba,
Aşağıdaki makroda a1 den başlayarak satır arası açılıyor. Ben A3 satırından sonra boşluk bırakılmaya başlamasını istiyorum.
Yardımlarınızı rica ediyorum.

Sub Test()
Dim NoA As Long, i As Long
NoA = Cells(65536, 1).End(xlUp).Row
For i = NoA To 2 Step -1
Rows(i).Insert
Next
End Sub

 

[Muzaffer Ali]

Merhaba.
Aşağıdaki satırda 2 yi değiştirin. 2, ikinci satırı temsil ediyor.
2 yerine 4 yazmalısınız.

For i = NoA To 2 Step -1

 

[akmes]

Merhaba.
Aşağıdaki satırda 2 yi değiştirin. 2, ikinci satırı temsil ediyor.
2 yerine 4 yazmalısınız.

For i = NoA To 2 Step -1

Yardımınıza çok teşekkür ederim.