Check Date to see if it has been Reached

Could you try this?

Sub dateval()
Dim lin As Integer
Dim lin2 As Long
Dim value As Double

lin = 1
lin2 = 999999
value = Cells(lin, 6)

While Cells(lin2, 6) = Empty

    lin2 = lin2 - 1

Wend

While lin <> lin2
    lin = lin + 1
    value = Cells(lin, 6)
    If value = Date Or value > Date Then
        Cells(lin, 7) = "ok"
    End If
    
Wend
    
End Sub