Ahoj, sorry že se do toho pletu. Jelikož nemám noc rád Select (i když v tomto případě je to asi jedno), co takhle?:

Sub Doplnenie()
    Application.ScreenUpdating = False
    prvy = 2
    For i = 1 To Range("A1").End(xlDown).Row - 1
        For j = prvy To prvy + Range("O" & prvy) - 2
           With Rows(j & ":" & j)
                .Copy
                .Insert Shift:=xlDown
           End With
        Next j
    prvy = prvy + Range("O" & prvy)
    Next i
    Application.CutCopyMode = False
    Range("A1").Select
    Application.ScreenUpdating = False
End Sub