Vlozeni prazdne bunky mezi kazdy radek v Excellu..

Můžeš zkusit tohle makro:

Sub Prij_radek()

Application.ScreenUpdating = False

For i = 1 To 50 'přidá 50 řádků
    Rows(i * 2).Select
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove    
Next i
Application.ScreenUpdating = True

End Sub

Vyzkoušej na kopii souboru (sešitu) !!