asi takto:
Sub Prazdne_radky()
Dim i As Long
Dim Pocet As Long
Pocet = 50
For i = 2 To Pocet * 2 Step 2
Rows(i).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Next i
End Subcitovat
Sub Prazdne_radky()
Dim i As Long
Dim Pocet As Long
Pocet = 50
For i = 2 To Pocet * 2 Step 2
Rows(i).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Next i
End Subcitovat