let
    Source = Table.FromColumns({Lines.FromBinary(File.Contents("C:\Users\Администратор\Downloads\PS.txt"), null, null, 1251)}),
    #"Grouped Rows" = Table.Group(Source, {"Column1"}, {{"Количество", each Table.RowCount(_), type number}}),
    #"Sorted Rows" = Table.Sort(#"Grouped Rows",{{"Количество", Order.Descending}}),
    #"Kept First Rows" = Table.FirstN(#"Sorted Rows",3000)
in
    #"Kept First Rows"

let
    folderPath = "E:\abc\PQ",
    toTable = (fileContent) =>
    let
        fileTable = Csv.Document(fileContent, [Delimiter=",", Encoding=65001, QuoteStyle=QuoteStyle.None]),
        firstRowToHead = Table.PromoteHeaders(fileTable, [PromoteAllScalars=true])
    in
        firstRowToHead,
    Source = Folder.Files(folderPath),
    csvOnly = Table.SelectRows(Source, each Text.Upper([Extension]) = ".CSV")[[Name],[Content]],
    getTables = Table.TransformColumns(csvOnly, {"Content", each toTable(_), Table.Type}),
    Expanded = Table.ExpandTableColumn(getTables, "Content", {" ", "Label", "Area", "Feret", "FeretX", "FeretY", "FeretAngle", "MinFeret"})
in
    Expanded

    getTables = Table.TransformColumns(csvOnly, {"Content", each toTable(_), Table.Type}),
    Custom = List.Distinct(List.Combine(Table.AddColumn(getTables, "names", each Record.FieldNames([Content]{0}))[names])),
    Custom1 = Table.ExpandTableColumn(getTables, "Content", Custom)
in
    Custom1

    getTables = Table.TransformColumns(csvOnly, {"Content", each toTable(_), Table.Type}),
    commonTable = Table.Combine(getTables[Content])
in
    commonTable

let
    Source1 = {5..10},
    Source2 = {15..20}
in
    Source2

Sub Ok()
Shell "E:\БезИмени1.ps1", vbNormalFocus
End Sub

let
    DATA = Excel.CurrentWorkbook(){[Name="DATA"]}[Content][Column1]{0},
    Extracted = Text.End(Text.From(Date.Year(DATA))&Text.From(Date.Month(DATA))&Text.From(Date.Day(DATA)), 6)
in
    Extracted