Привет, мир!

Sub Duplicate_Rows()
    Dim cell As Range
 
    Set cell = Range("B2")      'первая ячейка в столбце с кол-вом билетов
    Do While Not IsEmpty(cell)
        If cell > 1 Then
'вставляем N пустых строк
            cell.Offset(1, 0).Resize(cell.Value - 1, 1).EntireRow.Insert    
'заполняем вниз из первых ячеек
            cell.Resize(cell.Value, 1).EntireRow.FillDown                   
        End If
        Set cell = cell.Offset(cell.Value, 0)
    Loop
End Sub