[let
CharsToRemove = List.Transform({32,46,33..45,47,58..126}, each Character.FromNumber(_)),
CharsToRemove2 = List.Transform({48..57}, each Character.FromNumber(_)),
Source = Folder.Files("N:\Exchange\Clinic waiting times"),
#"Filtered Rows4" = Table.SelectRows(Source, each ([Folder Path] = "N:\Exchange\Clinic waiting times\") and ([Extension] = ".xls")),
#"Filtered Rows" = Table.SelectRows(#"Filtered Rows4", each [Folder Path] = "N:\Exchange\Clinic waiting times\" and [Extension] = ".xls"),
#"Removed Columns" = Table.RemoveColumns(#"Filtered Rows",{"Date accessed", "Date modified", "Date created", "Attributes", "Folder Path", "Extension"}),
#"Added Custom" = Table.AddColumn(#"Removed Columns", "Custom", each Text.Start([Name],Text.PositionOf([Name]," a"))),
#"Renamed Columns" = Table.RenameColumns(#"Added Custom",{{"Custom", "Clinic"}}),
#"Removed Columns1" = Table.RemoveColumns(#"Renamed Columns",{"Name"}),
#"Added Custom1" = Table.AddColumn(#"Removed Columns1", "Custom", each Excel.Workbook([Content])),
#"Removed Columns2" = Table.RemoveColumns(#"Added Custom1",{"Content"}),
#"Expanded Custom" = Table.ExpandTableColumn(#"Removed Columns2", "Custom", {"Name", "Data"}, {"Custom.Name", "Custom.Data"}),
#"Filtered Rows1" = Table.SelectRows(#"Expanded Custom", each ([Custom.Name] = "appointment waiting times 2")),
#"Expanded Custom.Data" = Table.ExpandTableColumn(#"Filtered Rows1", "Custom.Data", {"Column1", "Column2", "Column3", "Column4", "Column5"}, {"Custom.Data.Column1", "Custom.Data.Column2", "Custom.Data.Column3", "Custom.Data.Column4", "Custom.Data.Column5"}),
#"Filtered Rows2" = Table.SelectRows(#"Expanded Custom.Data", each not Text.Contains([Custom.Data.Column1], ".") or Text.Contains([Custom.Data.Column1], "Waiting")),
#"Filtered Rows3" = Table.SelectRows(#"Filtered Rows2", each ([Custom.Data.Column1] <> "Waiting times for appointments") and ([Custom.Data.Column2] <> "Drop-in clinics") and ([Custom.Data.Column3] <> null)),
#"Replaced Value" = Table.ReplaceValue(#"Filtered Rows3",null,"is null",Replacer.ReplaceValue,{"Custom.Data.Column4"}),
#"Removed Columns3" = Table.RemoveColumns(#"Replaced Value",{"Custom.Name", "Custom.Data.Column5"}),
#"Changed Type" = Table.TransformColumnTypes(#"Removed Columns3",{{"Custom.Data.Column1", type date}}),
#"Renamed Columns1" = Table.RenameColumns(#"Changed Type",{{"Custom.Data.Column1", "Date"}, {"Custom.Data.Column4", "# days"}}),
#"Added Custom2" = Table.AddColumn(#"Renamed Columns1", "Days", each Text.Remove([#"# days"],CharsToRemove)),
#"Added Custom3" = Table.AddColumn(#"Added Custom2", "Comments", each Text.Remove([#"# days"],CharsToRemove2)),
#"Removed Columns4" = Table.RemoveColumns(#"Added Custom3",{"# days"}),
#"Renamed Columns2" = Table.RenameColumns(#"Removed Columns4",{{"Custom.Data.Column3", "type"}, {"Custom.Data.Column2", "clinician"}})
in
#"Renamed Columns2"]