let
    fr = Excel.CurrentWorkbook(){[Name="Таблица1"]}[Content],
    a0 = List.Buffer(Table.ColumnNames(fr)),
    a1 = Table.Distinct(fr, a0),
    f =(x)=> [  z0 = Table.ToColumns(Table.Sort(x, a0{1})),
                z1 = List.Skip(z0{1}),
                z2 = Table.FromColumns(z0&{z1}, a0&{"Дата2"})],
    a2 = Table.Group(a1, a0{0}, {"Date", (x)=>f(x)[z2]})[Date],
    to = Table.Combine(a2)
in
    to

let
//собираем все файлы в таблицу
    fold = Table.SelectRows(Folder.Contents(" Ваша папка с файлами "), (x)=> not Text.StartsWith(x[Name], "~")),
    f1 =(x)=> Table.SelectRows(Table.TransformColumnTypes(Excel.Workbook(x, true){[Item = "Лист1"]}[Data], {"Номер транспорта", Text.Type}), (y)=>y[Номер транспорта]<>"0"),
    fr = Table.Combine(List.Transform(fold[Content], f1)), 
//обрабатываем
    nm = List.Buffer(Table.ColumnNames(fr)),
    f2 =(x)=> [ z1 = Table.Sort(Table.Distinct(x, {nm{0}, nm{1}, nm{2}}), nm{1}),
                z11 = if Table.RowCount(z1)=1 then #table(nm, {}) else z1,
                z2 = Table.ToColumns(z11),
                z3 = List.Skip(z2{1}),
                z4 = Table.RemoveLastN(Table.FromColumns(z2&{z3}, nm&{"Дата2"}),1),
                z5 = Table.AddColumn(z4, "Оборот", (x)=>Duration.Days(x[Дата2]-x[Дата отправления]))][z5],
    a1 = Table.Group(fr, nm{0}, {"new", (x)=>f2(x)}),
    a2 = Table.Combine(a1[new])
in
    a2