Vloženie prázdnych riadkov

Option Explicit

Sub vlozNoveRiadky()
'
' vlozNoveRiadky Makro
'
' Klávesová skratka: Ctrl+Shift+V
'
    Do While ActiveCell <> ""
        ActiveCell.Offset(1, 0).Rows("1:1").EntireRow.Select
        Selection.Insert Shift:=xlDown
        ActiveCell.Offset(1, 0).Range("A1").Select
    Loop
End Sub