How to divide cell value in many lines?

Alex_Barbosa99 

OliverScheurich , thanks for the idea. Tried to repeat without UI

let
    Source = Excel.CurrentWorkbook(),
    input = Source{[Name="Input"]}[Content],
    divisor = Source{[Name="divisor"]}[Content],

    getRepeats = List.Zip(
        {
            input[Column1],
            List.Transform(
                input[Column2],
                (q) => Number.Round( Number.IntegerDivide(q, divisor[Column1]{0} ) ) )
        } ),
    repeatIt = Table.FromList(
        List.Combine(
            List.Transform( getRepeats, (q) => List.Repeat( {q{0}},
            List.Max( {1, q{1} } ) ) )
        ),
        null,
        {"Output"}
    )

in
    repeatIt

on