Condición en VB excel para en enviar mail a determinada fecha

Tengo un archivo de excel en el cual manejo fechas de vencimiento

Tengo que en enviar notificación cuando llegue a determinada fecha y mail

El detalle es como puedo detener el conteo del tiempo

Este es mi modulo

Public msj, dest1 As String
Sub Aviso()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
On Error Resume Next
Dim fila, av, avEq, avDep As String
Dim fserv As Date
fila = 4
While Sheets("Hoja1").Cells(fila, 2) <> Empty
fserv = Sheets("Hoja1").Cells(fila, 6).Value
If fserv <= Date Then
avID = Sheets("Hoja1").Cells(fila, 2)
avDep = Sheets("Hoja1").Cells(fila, 3)
avEq = Sheets("Hoja1").Cells(fila, 5)
dest1 = Sheets("Hoja1").Cells(fila, 8)
msj = "El asegurado " & avDep & " con seguro " & avEq & " Requiere renovacion ,  No de Nota es " & avID
UserForm3.Show
Sdm = SendMail_mail()

End If
fila = fila + 1
Wend

Application.DisplayAlerts = False
Application.ScreenUpdating = True
End Sub

El detalle aquí es cuando pase de cero ya no mande nada como le puedo dar esa condición