let
Source = Excel.CurrentWorkbook(){[Name="Data"]}[Content],
ColName= Table.ColumnNames(Source),
#"Sorted Rows" = Table.Sort(Table.TransformColumnTypes(Excel.CurrentWorkbook(){[Name="Data"]}[Content],{{ColName{1}, type date}}),{{ColName{1}, Order.Descending}}),
#"Grouped Rows" = Table.AddIndexColumn(Table.TransformColumns(Table.Combine(Table.Group(#"Sorted Rows", ColName{0}, {{"Count", each Table.SelectColumns(_, List.Transform({0,1,3}, each ColName{_}))}})[Count]), {{ColName{1}, each Date.ToText(_, [Format="dd-MMM" , Culture="en-US"] )}}), "Index", 0,1),
#"Remove Duplicate Name" = Table.SelectColumns(Table.ReplaceValue(#"Grouped Rows", each...