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) !!