Excel formatting

Hi Christian_Ecijan 

Adding a Power Query option (attached) for the record as VBA is probably (much) faster

let
    Source = Excel.CurrentWorkbook(){[Name="Table1"]}[Content],
    CustomDelim = ", ",
    AddedNextRefs = Table.AddColumn(Source, "NEXT_REFS", each
        if Text.Contains([Reference], CustomDelim)
        then Text.AfterDelimiter([Reference], CustomDelim)
        else null
    ),
    SplittedRefToRows = Table.ExpandListColumn(
        Table.TransformColumns(AddedNextRefs,
            {"Reference", Splitter.SplitTextByDelimiter(CustomDelim, QuoteStyle.Csv)}
        ),
        "Reference"
    ),
    AddedClusterIndex = Table.Group(SplittedRefToRows, {"Part Number"}, 
        {"DATA", each Table.AddIndexColumn(_, "IDX", 0, 1), type table}
    ),
    CombinedNestedTables = Table.Combine(AddedClusterIndex[DATA]),
    UpdatedQtyAndNextRefs = Table.ReplaceValue(CombinedNestedTables, each [IDX], null,
        (v,i,n)=> if i = 0 then v else null,
        {"Qty", "NEXT_REFS"}
    
    ),
    SplittedNextRefsToCols = Table.SplitColumn(UpdatedQtyAndNextRefs, "NEXT_REFS",
        Splitter.SplitTextByDelimiter(CustomDelim, QuoteStyle.Csv),
        List.Transform({2..List.Max(AddedNextRefs[Qty])}, each "Reference" & Text.From(_))
    ),
    RemovedIndex = Table.RemoveColumns(SplittedNextRefsToCols,{"IDX"}),
    RenamedRef = Table.RenameColumns(RemovedIndex, {{"Reference", "Reference1"}})
in
    RenamedRef

any question let me know