let
    from = Excel.CurrentWorkbook(){[Name="Таблица1"]}[Content],
    list = List.Buffer(from[Дата]),
    listgen = List.DateTimes(List.Min(list),(List.Max(list)-List.Min(list))/#duration(0,1,0,0),#duration(0,1,0,0)),
    table = Table.FromList(listgen, Splitter.SplitByNothing()),
    join=Table.NestedJoin(table,"Column1",from,"Дата", "temp"),
    expand = Table.ExpandTableColumn(join, "temp", {"Событие 1", "Событие 2"}),
    sort = Table.Sort(expand,{{"Column1", Order.Ascending}}),
    to = Table.FillDown(sort,{"Событие 1", "Событие 2"})
in
    to