let
Source = Excel.CurrentWorkbook(){[Name="Table1"]}[Content],
#"Changed Type" = Table.TransformColumnTypes(Source,{{"Pack No:", Int64.Type}, {"Item", type text}, {"KG", Int64.Type}}),
#"Merged Columns" = Table.CombineColumns(Table.TransformColumnTypes(#"Changed Type", {{"KG", type text}}, "en-GB"),{"Item", "KG"},Combiner.CombineTextByDelimiter(",", QuoteStyle.None),"Item,KG"),
#"Grouped Rows" = Table.Group(#"Merged Columns", {"Pack No:"}, {{"Count", each Table.AddIndexColumn(_, "Index",1,1), type table}}),
#"Expanded Count" = Table.ExpandTableColumn(#"Grouped Rows", "Count", {"Item,KG", "Index"}, {"Item,KG", "Index"}),
#"Reordered Columns" = Table.ReorderColumns(#"Expanded Count",{"Pack No:", "Index", "Item,KG"}),
#"Split Column by Delimiter" = Table.SplitColumn(#"Reordered Columns", "Item,KG", Splitter.SplitTextByDelimiter(",", QuoteStyle.Csv), {"Item,KG.1", "Item,KG.2"}),
#"Changed Type1" = Table.TransformColumnTypes(#"Split Column by Delimiter",{{"Item,KG.1", type text}, {"Item,KG.2", Int64.Type}}),
#"Renamed Columns" = Table.RenameColumns(#"Changed Type1",{{"Item,KG.1", "Item"}, {"Item,KG.2", "KG"}}),
#"Unpivoted Other Columns" = Table.UnpivotOtherColumns(#"Renamed Columns", {"Pack No:", "Index"}, "Attribute", "Value"),
#"Reordered Columns1" = Table.ReorderColumns(#"Unpivoted Other Columns",{"Pack No:", "Attribute", "Index", "Value"}),
#"Merged Columns1" = Table.CombineColumns(Table.TransformColumnTypes(#"Reordered Columns1", {{"Index", type text}}, "en-GB"),{"Attribute", "Index"},Combiner.CombineTextByDelimiter(" ", QuoteStyle.None),"Merged"),
#"Pivoted Column" = Table.Pivot(#"Merged Columns1", List.Distinct(#"Merged Columns1"[Merged]), "Merged", "Value")
in
#"Pivoted Column"