How to divide all items in a column by an item included in the same column then add results to new column|Power Query|Excel Forum|My Online Training Hub

let
Source = Excel.CurrentWorkbook(){[Name="Table1"]}[Content],
#"Changed Type" = Table.TransformColumnTypes(Source,{{"No.", Int64.Type}, {"Company", type text}, {"Financial Statement", type text}, {"Main item in financial statement", type text}, {"Detailed item in financial statement", type text}, {"2016", Int64.Type}, {"2017", Int64.Type}, {"2018", Int64.Type}, {"2019", Int64.Type}, {"2020", Int64.Type}, {"2021", Int64.Type}, {"2016 VerticalAnalysis", type number}, {"2017 VerticalAnalysis", type number}, {"2018 VerticalAnalysis", type number}, {"2019 VerticalAnalysis", type number}, {"2020 VerticalAnalysis", type number}, {"2021 VerticalAnalysis", type number}}),
Unpivot = Table.UnpivotOtherColumns(#"Changed Type", {"No.", "Company", "Financial Statement", "Main item in financial statement", "Detailed item in financial statement"}, "Attribute", "Value"),
#"Renamed Columns" = Table.RenameColumns(Unpivot,{{"Attribute", "Year"}, {"Value", "Amount"}}),
#"Split Column by Delimiter" = Table.SplitColumn(#"Renamed Columns", "Year", Splitter.SplitTextByDelimiter(" ", QuoteStyle.Csv), {"Year.1", "Year.2"}),
#"Changed Type1" = Table.TransformColumnTypes(#"Split Column by Delimiter",{{"Year.1", type date}, {"Year.2", type text}}),
#"Replaced Value" = Table.ReplaceValue(#"Changed Type1",null,"BalanceAmount",Replacer.ReplaceValue,{"Year.2"}),
Renamed = Table.RenameColumns(#"Replaced Value",{{"Year.1", "Year"}, {"Year.2", "BalanceAmount/ VerticalAnalysis"}}),
Custom1 = Table.FromRecords(Table.TransformRows(Renamed, (rec)=>Record.TransformFields(rec,{{"Amount", each if rec[Detailed item in financial statement]<>"Fixed Assets" then _/(Table.SelectRows(Renamed,(x)=> x[#"BalanceAmount/ VerticalAnalysis"]="BalanceAmount" and x[Detailed item in financial statement]="Fixed Assets" and x[Year]=rec[Year])[Amount]{0}) else _}})))
in
Custom1