let
Source = Excel.CurrentWorkbook(){[Name="Table2"]}[Content],
Split = Table.TransformColumns(Source,{{"DATA", each Table.AddIndexColumn(Table.FromList(Text.Split(_,",")),"Index",0,1)}}),
Consec = Table.TransformColumns(Split,{{"DATA", (tbl)=> Table.AddColumn(tbl,"Custom",(row)=> try Number.From((Number.From(tbl[Column1]{row[Index]+1}) - Number.From(row[Column1]))=1) otherwise 0 ) }}),
Group = Table.TransformColumns(Consec, {{"DATA", (tbl)=> Table.TransformColumns(Table.SelectRows(Table.Group(tbl, {"Custom"}, {{"Count", each Table.RowCount(_), type number}},GroupKind.Local), each [Custom]=1),{{"Count", each _ + 1}}) }}),
Index = Table.AddIndexColumn(Group, "Index", 0, 1),
Expand = Table.ExpandTableColumn(Index, "DATA", {"Custom", "Count"}, {"Custom", "Count"}),
GroupCount = Table.Group(Expand, {"Count", "Index"}, {{"Count.1", each Table.RowCount(_), type number}}),
Pivot = Table.Pivot(Table.TransformColumnTypes(GroupCount, {{"Count", type text}}, "en-US"), List.Distinct(Table.TransformColumnTypes(GroupCount, {{"Count", type text}}, "en-US")[Count]), "Count", "Count.1", List.Sum),
RemoveIndex = Table.RemoveColumns(Pivot,{"Index"}),
OrderColumns = Table.ReorderColumns(RemoveIndex,List.Sort(Table.ColumnNames(RemoveIndex))),
Total = Table.AddColumn(OrderColumns, "Total", each List.Sum(Record.FieldValues(_)))
in
Total