Sub find_date()
Dim date_to_find As Date
Dim r As Integer
r = 1
date_to_find = Range("A1").Value
Do While Range("B" & r).Value <> ""
If Range("B" & r).Value = date_to_find Then
Exit Do
End If
r = r + 1
Loop
Debug.Print r
End Sub