Execute Find for Today in VBA

Hey Geeks,

I am facing some difficulty.
I have got 2 columns (well, that's all needed for this coding).

Column B - date (daily, from 01 Jan to 31 Dec)
Column C - actual time

I want my macro to go to todays date, move to actual time column and input actual time (copy afterwards as value)

so I started coding with:

        Columns("B:B").Select
    Selection.Find(What:=Today, After:=ActiveCell, LookIn:=xlFormulas _
        , LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Activate
Selection.ActiveCell.Offset(0,1).Select
ActiveCell.FormulaR1c1 = "=now()-today()"
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

I seem to be just missing, how to look for today in Find.

Anyone can help?
Much appreciated