let
    // Загрузка исходной таблицы
    ИсходнаяТаблица = Excel.CurrentWorkbook(){[Name="Таблица1"]}[Content],

    // Группировка по фамилии
    Сгруппировано = Table.Group(
        ИсходнаяТаблица,
        {"Столбец1"},
        {
            {"Записи", each _, type table}
        }
    ),

    // Собираем плоский список дат
    СДатами = Table.AddColumn(
        Сгруппировано,
        "Даты",
        each
            let
                ТаблицаЗаписей = [Записи],
                Строки = Table.ToRows(ТаблицаЗаписей),
                ПлоскийСписок = List.Combine(
                    List.Transform(
                        Строки,
                        (row) => {row{1}, row{2}}
                    )
                )
            in
                ПлоскийСписок
    ),

    // Максимальное количество дат
    МаксДлинаСписка = List.Max(List.Transform(СДатами[Даты], List.Count)),

    // Генерация имён столбцов
    ИменаСтолбцов = List.Transform(
        {0 .. МаксДлинаСписка - 1},
        (i) =>
            if Number.Mod(i, 2) = 0
            then "ДатаНачала" & Text.From(Number.IntegerDivide(i, 2) + 1)
            else "ДатаОкончания" & Text.From(Number.IntegerDivide(i, 2) + 1)
    ),

    // Формируем итоговую таблицу
    Результат = Table.FromRecords(
        List.Transform(
            Table.ToRows(СДатами),
            (row) =>
                let
                    Фамилия = row{0},
                    Даты = row{2} & List.Repeat({null}, МаксДлинаСписка - List.Count(row{2})),
                    Пары = List.Zip({ИменаСтолбцов, Даты}),
                    Запись = List.Accumulate(
                        Пары,
                        [Фамилия = Фамилия],
                        (acc, pair) => Record.AddField(acc, pair{0}, pair{1})
                    )
                in
                    Запись
        )
    )
in
    Результат