aalbatros adlı üyeden alıntı: mesajı görüntüle 
Dim aLbaTRos As Integer
    [A2].Select
    aLbaTRos = 3
    While ActiveCell.Value <> ""
        ActiveSheet.Rows(ActiveCell.Row & ":" & _
        aLbaTRos + ActiveCell.Row - 1).Insert Shift:=xlDown
        ActiveCell.Offset(aLbaTRos + 1, 0).Select
    Wend
    aLbaTRos = Empty
8 Satır Ekliyor İşini Görecektir.
çok teşekkür ederim ancak bu kodu nereye uygulayacağım ? Excelle pek aram yokta