Boa tarde galera

Na planilha abaixo fiz um sistema que detecta quais os produtos estão vencidos (imaginem que é para o controle de um mercado).

Ao clicar no botão ele organiza do "mais vencido" ao "mais em dia" e em uma mensagem de texto diz quantos estão vencidos.

Mas aí está meu problema.
Não estou conseguindo fazer a contagem das linhas vencidas. Usei um if para contar os valores de dias negativos, mas só estou conseguindo passar o valor das células para a verificação e não o endereço (já tentei com .cells e .range)
Alguém pode me ajudar?

Segue o código e a planilha em anexo.

Sub Macro1()
'
Dim N As Double
Dim Total As Double
Dim endereco As Double

N = 1
conta = 0
Total = Worksheets("Consulta").Range("l3")
endereco = Worksheets("Consulta").Cells(4, 1)


Do While N < Total
    Range("A4:E8").Select
    ActiveWorkbook.Worksheets("Consulta").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Consulta").Sort.SortFields.Add Key:=Range("A4:A8" _
        ), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Consulta").Sort
        .SetRange Range("A3:E8")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    
If endereco < 0 Then

    conta = conta + 1

End If

N = N + 1
endereco = endereco + 1

Loop

MsgBox conta & " Produtos estão vencidos", vbOKOnly, "Consulta de produtos"
    
End Sub

Valeu