Copy hedader by each new date

the excel contains always 3 dates, I want the header to return per date
I can manage to insert an empty row per car per date
but copying the header does not work
in attachment small example where column H to K is the desired one

let
    Bron = Excel.CurrentWorkbook(){[Name="Tabel1"]}[Content],
    #"Type gewijzigd" = Table.TransformColumnTypes(Bron,{{"datum", type date}, {"wagen", type text}, {"omschrijving", type text}, {"chauffeur", type text}}),
    Samen = Table.AddColumn(#"Type gewijzigd", "Samengevoegd", each Text.Combine({Text.From([datum], "nl-BE"), [wagen]}, " "), type text),
    cols = Table.ColumnNames(Samen),
    grp = Table.Group(Samen, {"Samengevoegd"}, {{"Count", each Table.InsertRows(_,Table.RowCount(_), {Record.FromList(List.Repeat({null},Table.ColumnCount(_)),cols)} )}}),
    delCol = Table.RemoveColumns(grp,{"Samengevoegd"}),
    Toe_leeg = Table.ExpandTableColumn(delCol, "Count", cols, cols),
    Kol_verw = Table.RemoveColumns(Toe_leeg,{"Samengevoegd"})
in
    Kol_verw