let FolderPath = fxGetValFromTable("RA_Table", "Folder"),
Source = Folder.Files(FolderPath),
#"Filename and Extension in Lowercase" = Table.TransformColumns(Source,{{"Name", Text.Lower}, {"Extension", Text.Lower}}),
#"Filter .xlsx files" = Table.SelectRows(#"Filename and Extension in Lowercase", each ([Extension] = ".xlsx")),
#"Filter files with ""commresults"" in name" = Table.SelectRows(#"Filter .xlsx files", each Text.Contains([Name], "commresults")),
#"Remove Unnecesary Columns" = Table.SelectColumns(#"Filter files with ""commresults"" in name",{"Content", "Name"}),
#"Get contents from Excel Files" = Table.AddColumn(#"Remove Unnecesary Columns", "Contents", each Excel.Workbook([Content], true)),
#"Expand Contents Column" = Table.ExpandTableColumn(#"Get contents from Excel Files", "Contents", {"Data", "Hidden", "Item", "Kind", "Name"}, {"Data", "Hidden", "Item", "Kind", "Name.1"}),
#"Filter Sheets" = Table.SelectRows(#"Expand Contents Column", each [Kind] = "Sheet"),
#"Keep sheets with date pattern only MMMYY" = Table.SelectRows(#"Filter Sheets", each (try Date.FromText([Item]) otherwise "Remove") <> "Remove"),
#"Removed Other Columns" = Table.SelectColumns(#"Keep sheets with date pattern only MMMYY",{"Name", "Data"}),