Как мне остановить сортировку в определенной точке столбца?

Question

У меня есть электронная таблица, которая автоматически сортирует себя по дате в столбце D.

If Not Intersect(Target, Range("D:D")) Is Nothing Then
    MsgBox ("sorting col D")
'    Application.EnableEvents = False

    Range("D1").Sort Key1:=Range("D2"), _
    Order1:=xlAscending, Header:=xlYes, _
    OrderCustom:=1, MatchCase:=False, _
    Orientation:=xlTopToBottom

'    Application.EnableEvents = True

End If

Этот код работает нормально.

Я хочу ограничить сортировку первойN рядов.К сожалению, N не является фиксированным числом.По существу, в столбце K будет указана информация о НЕКОТОРЫХ строках (и все строки со столбцом K будут находиться внизу листа).Поэтому я хочу, чтобы сортировка выполнялась только для строк, в которых нет данных в столбце K.

Итак, на этом рисункеявляются датами в столбце D и для всех зеленых строк. Если бы я добавил новую строку с датой в столбце D, он отсортировал бы ее, НО ТОЛЬКО СРЕДИ СТРОК 2-10, оставив только строки 11+.Я не хочу, чтобы зеленые строки были отсортированы по столбцу D, поскольку они отсортированы по чему-то другому.Извините за смутное фото!