let
Source = Excel.CurrentWorkbook(){[Name="Table2"]}[Content],
#"Removed Other Columns" = Table.SelectColumns(Source,{"T/AS", "Column3", "Column2", "Column15"}),
#"Filled Down" = Table.FillDown(#"Removed Other Columns",{"Column2", "Column15"}),
#"Filtered Rows" = Table.SelectRows(#"Filled Down", each ([#"T/AS"] = 5 or [#"T/AS"] = 6)),
#"Replaced Value" = Table.ReplaceValue(#"Filtered Rows","CHILDREN","",Replacer.ReplaceText,{"Column15"}),
#"Replaced Value1" = Table.ReplaceValue(#"Replaced Value","[","",Replacer.ReplaceText,{"Column15"}),
#"Replaced Value2" = Table.ReplaceValue(#"Replaced Value1","]","",Replacer.ReplaceText,{"Column15"}),
#"Renamed Columns" = Table.RenameColumns(#"Replaced Value2",{{"T/AS", "Quantity"}, {"Column3", "Rate"}, {"Column2", "Shop"}, {"Column15", "Code"}})
in
#"Renamed Columns"