Prípadne kapánek elegantnejšie:

Sub Rozpis()
    Application.ScreenUpdating = False
    prvy = 2
    For i = 1 To Range("A1").End(xlDown).Row - 1
        zac = prvy
        pocet = Range("O" & prvy)
        For j = prvy To prvy + pocet - 2
            With Rows(j & ":" & j)
                .Copy
                .Insert Shift:=xlDown
            End With
            Range("A" & j + 1 & ",D" & j + 1 & ":F" & j + 1 & ",M" & j + 1 & ",O" & j + 1).ClearContents
        Next j
        Application.CutCopyMode = False
        
        Range("N" & zac + 1).Select
        Delenie = Split(Selection.Value, Chr(10))
        Selection(1).Resize(UBound(Delenie) + 1) = Application.Transpose(Delenie)
        
        prvy = prvy + pocet
    Next i
    Range("A1").Select
End Sub

Samozrejme, treba tiež dopracovať v delení mien s dátumami narodení + táto verzia je zatiaľ bez kontroly súhlasu počtov
Ale ako medzitým vidím, asi tam budú zmeny...