let
Source = Excel.CurrentWorkbook(){[Name="Table1"]}[Content],
#"Added Index" = Table.AddIndexColumn(Source, "Index", 1, 1, Int64.Type),
#"Duplicated Column" = Table.DuplicateColumn(#"Added Index", "Item", "Item - Copy"),
#"Inserted Integer-Division" = Table.AddColumn(#"Duplicated Column", "Integer-Division", each Number.IntegerDivide([Index], 4), Int64.Type),
#"Changed Type" = Table.TransformColumnTypes(#"Inserted Integer-Division",{{"Index", type text}, {"Integer-Division", type text}}),
#"Merged Columns" = Table.CombineColumns(#"Changed Type",{"Item", "Index"},Combiner.CombineTextByDelimiter("-", QuoteStyle.None),"MergedIndex"),
#"Merged Columns1" = Table.CombineColumns(#"Merged Columns",{"Item - Copy", "Integer-Division"},Combiner.CombineTextByDelimiter("", QuoteStyle.None),"MergedIntDiv")
in
#"Merged Columns1"