Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address(0, 0, xlA1) <> "M2" Then Exit Sub
    
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    
    Dim ws As Worksheet
    Set ws = Target.Parent
    
    ' Отключаем фильтр, если он был включен ранее (сбрасываем скрытие строк)
    ws.AutoFilterMode = False
    
    Dim lastRow As Long
    ' Определяем последнюю заполненную строку по столбцу D
    lastRow = ws.Cells(ws.Rows.Count, "D").End(xlUp).Row
    
    If lastRow < 5 Then GoTo Cleanup
    
    If Not IsDate(Target.Value) Then
        ' Если дата не указана, просто выходим (строки уже отображены после сброса фильтра)
        GoTo Cleanup
    End If
    
    ' Диапазон фильтрации: с 4-й строки (заголовок) до последней заполненной
    Dim rngFilter As Range
    Set rngFilter = ws.Range("D4:D" & lastRow)
    ' Массовое скрытие строк за одну операцию с помощью автофильтра
    rngFilter.AutoFilter Field:=1, Criteria1:=Format(Target.Value, "dd.mm.yyyy")

Cleanup:
    Application.ScreenUpdating = True
    Application.EnableEvents = True
End Sub

let
    путь = Excel.CurrentWorkbook(){[Name="Таблица1"]}[Content]{0}[Путь],
    лист = Excel.CurrentWorkbook(){[Name="Таблица1"]}[Content]{0}[Лист],
    Источник = Excel.Workbook(File.Contents(путь), null, true),
    Лист1_Sheet = Источник{[Item=лист, Kind="Sheet"]}[Data],
    #"Удаленные верхние строки" = Table.Skip(Лист1_Sheet,3),
    #"Повышенные заголовки" = Table.PromoteHeaders(#"Удаленные верхние строки", [PromoteAllScalars=true]),
    #"Другие удаленные столбцы" = Table.SelectColumns(#"Повышенные заголовки",{"Дата", "Имя", "Часы"}),
    #"Строки с примененным фильтром" = Table.SelectRows(#"Другие удаленные столбцы", each ([Дата] <> null and [Дата] <> "Дата")),
    #"Измененный тип" = Table.TransformColumnTypes(#"Строки с примененным фильтром",{{"Дата", type date}, {"Часы", type number}, {"Имя", type text}}),
    #"Сортированные строки" = Table.Sort(#"Измененный тип",{{"Дата", Order.Ascending}}),
    #"Сведенный столбец" = Table.Pivot(Table.TransformColumnTypes(#"Сортированные строки", {{"Дата", type text}}, "ru-RU"), List.Distinct(Table.TransformColumnTypes(#"Сортированные строки", {{"Дата", type text}}, "ru-RU")[Дата]), "Дата", "Часы", List.Sum)
in
    #"Сведенный столбец"