Sütunda satır açmak

[53rize]

Bir sütun da 500 adet satırım var. Ben her satırın altına 5 adet satır daha eklemek istiyorum.nasıl yapabilirim. teşekkürler.

 

[Ömer]

.

Merhaba,

Sub Ekle()
For i = [A65536].End(3).Row To 2 Step -1
Rows(i & ":" & i + 4).Insert shift:=xlDown
Next
End Sub

Denermisiniz..

.