let
Source = Excel.CurrentWorkbook(){[Name="Table1"]}[Content],
#"Changed Type" = Table.TransformColumnTypes(Source,{{"Customer ID", Int64.Type}, {"Posting Date", type date}, {"Export to", type date}, {"Invoice Date", type date}, {"Fallen On", type date}, {"Amount", Int64.Type}}),
CalcFailed = Table.AddColumn(#"Changed Type", "Failed", each if [Fallen On]<=[Export to] then "Failed" else "Not Failed"),
InsertYear = Table.AddColumn(CalcFailed, "Year", each Date.Year([Fallen On]), Int64.Type),
SortOnYear = Table.Sort(InsertYear,{{"Year", Order.Ascending}}),
AddIndexToKeepSort = Table.AddIndexColumn(SortOnYear, "Index", 0, 1),
RemoveCols = Table.RemoveColumns(AddIndexToKeepSort,{"Index"}),
GroupOnYearIdFailed = Table.Group(RemoveCols, {"Year", "Customer ID", "Failed"}, {{"Amount", each List.Sum([Amount]), type number}}),
MergeFailedYear = Table.CombineColumns(Table.TransformColumnTypes(GroupOnYearIdFailed, {{"Year", type text}}, "nl-BE"),{"Failed", "Year"},Combiner.CombineTextByDelimiter("|", QuoteStyle.None),"Failed Year"),
PivotFailedYear = Table.Pivot(MergeFailedYear, List.Distinct(MergeFailedYear[#"Failed Year"]), "Failed Year", "Amount", List.Sum)
in
PivotFailedYear