let
Source = Excel.Workbook(File.Contents("G:\Uploads\Test Tracker.xlsx"), null, true),
#"Event Data Details_Sheet" = Source{[Item="Event Data Details",Kind="Sheet"]}[Data],
#"Filtered Rows" = Table.SelectRows(#"Event Data Details_Sheet", each [Column2] <> null or [Column4] = "Date -->"),
#"Removed Columns" = Table.RemoveColumns(#"Filtered Rows",{"Column1", "Column4"}),
#"Transposed Table" = Table.Transpose(#"Removed Columns"),
#"Filled Down" = Table.FillDown(#"Transposed Table",{"Column1"}),
#"Merged Columns" = Table.CombineColumns(Table.TransformColumnTypes(#"Filled Down", {{"Column1", type text}}, "nl-BE"),{"Column1", "Column2"},Combiner.CombineTextByDelimiter("|", QuoteStyle.None),"Labels"),
#"Transposed Table1" = Table.Transpose(#"Merged Columns"),
#"Promoted Headers" = Table.PromoteHeaders(#"Transposed Table1", [PromoteAllScalars=true]),
#"Unpivoted Other Columns" = Table.UnpivotOtherColumns(#"Promoted Headers", {"|BWB Event Type", "|Guest/Note"}, "Attribute", "Value"),
#"Split Column by Delimiter" = Table.SplitColumn(#"Unpivoted Other Columns", "Attribute", Splitter.SplitTextByDelimiter("|", QuoteStyle.Csv), {"Attribute.1", "Attribute.2"}),
#"Pivoted Column" = Table.Pivot(#"Split Column by Delimiter", List.Distinct(#"Split Column by Delimiter"[Attribute.2]), "Attribute.2", "Value", List.Sum),
#"Renamed Columns" = Table.RenameColumns(#"Pivoted Column",{{"Attribute.1", "Date"}, {"|Guest/Note", "Guest/Note"}, {"|BWB Event Type", "BWB Event Type"}}),
#"Changed Type" = Table.TransformColumnTypes(#"Renamed Columns",{{"Attendance", Int64.Type}, {"RSVP", Int64.Type}, {"Date", type date}, {"Guest/Note", type text}, {"BWB Event Type", type text}})
in
#"Changed Type"