2 satır eklemek için bu kodları kullanabilirsiniz;
Sub Emre()
    i = 1
    While i <> "" And Cells(i, 1) <> ""
        If Cells(i, "A") <> "" Then
            Rows(i + 1).Insert
            i = i + 3
        End If
    Wend
    i = Empty
End Sub
Dosyayı bu linkten indirebilirsiniz;
http://www.dosya.tc/server38/ssywwj/2sat_rekle.rar.html