REPEATBYNUMBER

=LAMBDA(a,
    LET(
        b, TAKE(a, , -1),
        XLOOKUP(SEQUENCE(SUM(b)), SCAN(0, b, LAMBDA(v, i, v + i)), TAKE(a, , 1), , 1)
    )
)

=LAMBDA(a,
    LET(b, TAKE(a, , -1), TOCOL(IF(b >= SEQUENCE(, MAX(b)), TAKE(a, , 1), NA()), 2))
)

Function Explode(r)
    Dim Answer() As Variant
    CallerRows = r.Rows.Count
    FinalSize = 0
    FinalSize = Application.WorksheetFunction.Sum(r.Columns(2))
    ReDim Answer(1 To FinalSize)
    Ctr = 1
    Debug.Print CallerRows
    For i = 1 To CallerRows
        For j = 1 To r(i, 2).Value
            Answer(Ctr) = r(i, 1).Value
            Ctr = Ctr + 1
        Next j
    Next i
    Explode = Application.Transpose(Answer)
   
End Function

let
    // Load the source table data range
    Source = Excel.CurrentWorkbook(){[Name="ProductTable"]}[Content],

    // Set the column types
    SetTypes = Table.TransformColumnTypes(Source,{{"Product", type text}, {"Repeat", Int64.Type}}),

    // Convert the Repeat column values to many list items by the repeat value
    Repeated = Table.TransformColumns(SetTypes, {"Repeat", each List.Numbers(1,_), type list}),

    // Expand the list items in the converted Repeat column to get the necessary number of repeated rows
    // Note that Product column values are repated for each list item (thát's the whole idea)
    Expanded = Table.ExpandListColumn(Repeated, "Repeat"),

    // Remove items with 0 number of Repeat since those will generate null values (this could be also done at the beginning)
    NullsRemoved = Table.SelectRows(Expanded, each [Repeat] <> null and [Repeat] <> ""),

    // We don't need the Repeat column anymore
    Result = Table.RemoveColumns(NullsRemoved,{"Repeat"})
in
    Result

=LAMBDA(ar,
    LET(
        b, TAKE(ar, , -1),
        c, SEQUENCE(SUM(b)),
        d, SCAN(0, b, LAMBDA(v, i, v + i)),
        DROP(REDUCE(0, c, LAMBDA(a, e, VSTACK(a, XLOOKUP(e, d, DROP(ar,,-1), , 1, 1)))), 1)
    )
)