Makro ile belirli satır eklemek

[acemiler]

A sütünunda herhangi bir satıra geldiğimde, bulunduğum satırdan itibaren aşağıya doğru 18 satır sayıp, 18. ci satırdan sonra 17 tane boş satır eklemek istiyorum. Örneklere baktım. Fakat kendime göre uyarlayamadım. Şimdiden teşekkürler.

 

[veyselemre]

Sub satirekle()
sat = ActiveCell.Row
Rows(sat + 19 & ":" & sat + 35).Insert
End Sub

 

[acemiler]

çok teşekkür ederim.