Searching for Todays() date

I am trying to write a macro where I looked for today's date and then copy a cell next to the date I searched for

Please Login or Register  to view this content.

looks for today's date ie. What:=Date <--VBA function that produces today's date in 06/11/2013 format

then copy's the cell immediately to the right of the found date