let
Source = Excel.CurrentWorkbook(){[Name="Table1"]}[Content],
Prefix = Table.TransformColumns(Source, {{"Week Number", each "Week " & Text.From(_, "en-GB"), type text}}),
Group = Table.Group(Prefix, {"Answer", "Week Number"}, {{"Count", each Table.RowCount(_), type number}}),
Sort = Table.Sort(Group,{{"Week Number", Order.Ascending}}),
Pivot = Table.Pivot(Table.TransformColumnTypes(Sort, {{"Week Number", type text}}, "en-GB"), List.Distinct(Table.TransformColumnTypes(Sort, {{"Week Number", type text}}, "en-GB")[#"Week Number"]), "Week Number", "Count", List.Sum)
in
Pivot