let
Source = Excel.CurrentWorkbook(){[Name="Input"]}[Content],
Typed = Table.TransformColumnTypes(Source,{{"Building_ID", Int64.Type}, {"Type", type text}, {"Name", type text}, {"Phone number", type text}, {"Data updated", type date}}),
SelectedColumns1 = Table.SelectColumns(Typed,{"Building_ID", "Type"}),
Records1 = Table.ToRecords(SelectedColumns1),
SelectedColumns2 = Table.SelectColumns(Typed,{"Name", "Phone number", "Data updated"}),
Records2 = Table.ToRecords(SelectedColumns2),
Tabled = Table.FromColumns({Records1,Records2}),
ExpandedRecords1 = Table.ExpandRecordColumn(Tabled, "Column1", {"Building_ID", "Type"}, {"Building_ID", "Type"}),
Pivoted = Table.Pivot(ExpandedRecords1, List.Distinct(ExpandedRecords1[Type]), "Type", "Column2"),
#"Expanded Landlord" = Table.ExpandRecordColumn(Pivoted, "Landlord", {"Name", "Phone number", "Data updated"}, {"Landlord.Name", "Landlord.Phone number", "Landlord.Data updated"}),
#"Expanded Renter" = Table.ExpandRecordColumn(#"Expanded Landlord", "Renter", {"Name", "Phone number", "Data updated"}, {"Renter.Name", "Renter.Phone number", "Renter.Data updated"}),
#"Expanded Facility Manager" = Table.ExpandRecordColumn(#"Expanded Renter", "Facility Manager", {"Name", "Phone number", "Data updated"}, {"Facility Manager.Name", "Facility Manager.Phone number", "Facility Manager.Data updated"}),
#"Renamed Columns" = Table.RenameColumns(#"Expanded Facility Manager",{{"Landlord.Name", "Landlord"}, {"Renter.Name", "Renter"}, {"Facility Manager.Name", "Facility Manager"}})
in
#"Renamed Columns"