Are you looking for something like this?
Code:
Sub DateJustRight()
  MsgBox Evaluate("MAX(IF((B7:B2500>=A4)*(B7:B2500<=B4),ROW(B7:B2500),))")
End Sub