boş satır ekleme makrosu

[hikmet]

günaydın sn.hocalarım ve arkadaşlarım;
dolu bir excel sayfası için boş satır ekleme makrosu arıyorum. çok basitçe her dolu satırın altına sadece dört tane satır açma makrosu. bu konuda yardımcı olabilirmisiniz. ilginiz için şimdiden teşekkür ederim

 

[İhsan Tank]

Sub SpreadOut()
Dim bossat As Integer, J As Integer
bossat = InputBox("Kaç satır Olacak?", "Boş Satır Ekle")
ActiveCell.Offset(1, 0).Select
While ActiveCell.Value > "" And bossat > 0
For J = 1 To bossat
Selection.EntireRow.Insert
Next J
ActiveCell.Offset(bossat + 1, 0).Select
Wend
End Sub
denermisiniz.