Data v Excelu - přidání řádků dle daných čísel

rýchly nástrel, nestíham

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
            Rows(j & ":" & j).Select
                Selection.Copy
                Selection.Insert Shift:=xlDown
        Next j
    prvy = prvy + Range("O" & prvy)
    Next i
    Application.CutCopyMode = False
    Range("A1").Select
End Sub

ďalej sa to dá tiež zautomatizovať.
Ak Ti s tým niekto zatiaľ neporadí, zajtra môžem pokračovať

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

Ještě mě napadlo řešení bez cyklu.

Sub Doplnenie()
    
Dim prvy As Byte
    
Application.ScreenUpdating = False
    
    prvy = 2
           With Rows(prvy & ":" & prvy)
                .Copy
                .Resize(Range("O" & prvy) - 1).Insert Shift:=xlDown
           End With
    Application.CutCopyMode = False
    Range("A1").Select
Application.ScreenUpdating = False
End Sub

Ahoj Siki,
dáwno som Ťa nevidel!

Konečne sa tu zas objavilo niečo na Excel, však?

Ahoj Roberte,
jo jo máš pravdu, v poslední době se mi nedostává volného času. Tak sem kouknu jen sporadicky. Taky sem se dal do výroby rosícího systému do terárií s pomocí arduina. Takže studuji Wiring atd.
A na Excel mi nějak nezbývá čas.