Power Query to Remove 2nd and 3rd Comma

nschmidt Paste this code in Advanced editor:

let
    Source = 
        Table.FromRows (
            Json.Document (
                Binary.Decompress (
                    Binary.FromText (
                        "lZHLbsMgEEV/BWU9bZgxfu6IQQmqDZbtOEnTyKt+QdX/r7HdKE9VZYHgzoXDHY7HRaetcnVvFMwrK0sNlfPKMCvZjrvCWN3nbmtbaLRt+87IXisDSRj2bS1tI/PWODtbSmN7XxlPx2HwxOIroyUJo6e3RLMF+TPLUPGWxQmOCwySNBaw0SZ3L4XL36ApK4lhSgKQL4MlcSJAOHx+gR/oVT7JjKcZJybLScVJna/FmBMos3eWdbLoNPv45pwiNryjGpqzhqKxBwxSvMNcIzATnFXlLRp5xvGMFlfkNODQbGu90/WebRvJjM0htxiQGJ71N0884uFl1PBfSTfrsuGUTE26J+NMpoweksmTq0dJiUQCq1qqA9u5ulA7ozT4tK9QvncSRRpdtpdGKN3E5fEEpRuoiM7Q3489/QA=",
                        BinaryEncoding.Base64
                    ),
                    Compression.Deflate
                )
            ),
            let
                _t = ( ( type nullable text ) meta [ Serialized.Text = true ] )
            in
                type table [ Column1 = _t ]
        ),
    AddedCustom = 
        Table.AddColumn (
            Source,
            "Custom",
            each
                let
                    SplitText1 = 
                        Splitter.SplitTextByCharacterTransition ( 
                            { "," }, { "A" .. "Z" } 
                        ) ([Column1]),
                    VendorId = SplitText1{0},
                    VendorName = SplitText1{1},
                    RemoveVendorNameID = List.RemoveFirstN ( SplitText1, 2 ),
                    FxRemoveLastComma = 
                        ( Value as text ) as text =>
                            if Text.End ( Value, 1 ) = "," 
                            then 
                                Text.Combine ( 
                                    List.RemoveLastN ( 
                                        Text.ToList ( Value ), 
                                        1 
                                    ) 
                                )
                            else Value,
                    RemoveLastComma = 
                        List.Transform (
                            RemoveVendorNameID,
                            each FxRemoveLastComma ( _ )
                        ),
                    SplitText2 = 
                        List.Transform (
                            RemoveLastComma,
                            each Text.Split ( Text.Trim ( _ ), "," )
                        ),
                    Combine = List.Combine ( SplitText2 ),
                    Check =
                        if List.Contains ( Combine, "PO_ID" ) 
                        then List.Select ( Combine, each _ <> "" )
                        else Combine,
                    Result = { VendorId } & { VendorName } & Check,
                    RemoveLastComma2 = List.Transform ( Result, each FxRemoveLastComma ( _ ) )
                in
                    RemoveLastComma2
        ),
    ToTable = Table.PromoteHeaders ( Table.FromRows ( AddedCustom[Custom] ) ),
    ChangedType = 
        Table.TransformColumnTypes (
            ToTable,
            {
                { "VENDOR_ID", Int64.Type },
                { "VENDOR_NAME", type text },
                { "PO_ID", type text },
                { "PO_DATE", type date },
                { "PO_LINE_COUNT", Int64.Type },
                { "SENT_VIA_EDI", type text },
                { "855_TRANSACTION_COUNT", Int64.Type },
                { "MIN_855_DATE", type datetime },
                { "753_TRANSACTION_COUNT", type any },
                { "MIN_753_DATE", type any },
                { "856_TRANSACTION_COUNT", Int64.Type },
                { "MIN_856_DATE", type datetime },
                { "810_TRANSACTION_COUNT", Int64.Type },
                { "MIN_810_DATE", type date }
            }
        )
in
    ChangedType