let Source = FilesList, RemoveMSContacts = Table.SelectRows(Source, each not Text.Contains([Name], "MS Contacts")), KeepCSV = Table.SelectRows(RemoveMSContacts, each ([Extension] = ".csv")), #"Filtered Hidden Files1" = Table.SelectRows(KeepCSV, each [Attributes]?[Hidden]? <> true), #"Invoke Custom Function1" = Table.AddColumn(#"Filtered Hidden Files1", "Transform File (5)", each #"Transform File (5)"([Content])), #"Removed Other Columns1" = Table.SelectColumns(#"Invoke Custom Function1", {"Transform File (5)"}), #"Expanded Table Column1" = Table.ExpandTableColumn(#"Removed Other Columns1", "Transform File (5)", Table.ColumnNames(#"Transform File (5)"(#"Sample File (5)"))), #"Promoted Headers" = Table.PromoteHeaders(#"Expanded Table Column1", [PromoteAllScalars=true]) in #"Promoted Headers"