Почему функция не считает первое значение? - VBA

Формулировка задачи:

Здравствуйте! Помогите, пожалуйста, разобраться. Есть таблица. В первой колонке даты, в четвёртой суммы. Код написан на изменение колонки с суммой. Если значение в этой колонке изменяется, то нужно получить сумму всех значений за эту дату. Использую функцию листа СУММЕСЛИ. Вот код:

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim endRow_ShKuriery As Long
    endRow_ShKuriery = ActiveSheet.Cells(Rows.Count, CLMN_DATE).End(xlUp).Row
    If (Target.Column = CLMN_SUMMA_ZAKAZA_ShKuriery) Then
        If (Target.Row >= ROW_START_ShKuriery) And (Target.Row <= endRow_ShKuriery) Then
            Dim sumTotal_ShKuriery As Double, dt As Date
            dt = ActiveSheet.Cells(Target.Row, CLMN_DATE).value
            sumTotal_ShKuriery = Application.WorksheetFunction.SumIf(ActiveSheet.Columns("A:A"), dt, ActiveSheet.Columns("D:D"))
        End If
    End If
End Sub

И всё бы ничего, но почему то значение из ячейки D4 не считается(((. Все считается, а это значение нет. Не могу разобраться.... Фото таблицы прилагаю. Помогите, пожалуйста. Заранее спасибо!

Решение задачи: «Почему функция не считает первое значение?»

textual
                            Листинг программы 
                        

                            If (Target.Row >= ROW_START_ShKuriery) And (Target.Row <= EndRow_ShKuriery) Then
Dim sumTotal_ShKuriery As Double, dt As Date
dt = ActiveSheet.Cells(Target.Row, CLMN_DATE).value
sumTotal_ShKuriery = Application.WorksheetFunction.SumIf(ActiveSheet.Columns("A:A"), dt, ActiveSheet.Columns("D"))
End If
                        