let
    Source = Query1,
    SplitCollaborations = Table.AddColumn(Source, "SplitInstitutions", each Text.Split([CollaboratingInstitutions], "; ")),
    ExpandedInstitutions = Table.ExpandListColumn(SplitCollaborations, "SplitInstitutions"),
    RenamedColumns = Table.RenameColumns(ExpandedInstitutions,{{"SplitInstitutions", "Collaborating Institution"}}),
    RemovedColumns = Table.RemoveColumns(RenamedColumns,{"CollaboratingInstitutions", "AberdeenAuthors", "CollaboratingAuthors"}),
    GroupedTable = Table.Group(RemovedColumns, {"Collaborating Institution"}, {{"Collaboration Count", each Table.RowCount(_), Int64.Type}}),
    #"Sorted Rows" = Table.Sort(GroupedTable,{{"Collaboration Count", Order.Descending}})
in
    #"Sorted Rows"