Problem setting range in macro based on todays date.

Hi Guys,

I'm hoping theres a fairly simple solution to this one, I'm pretty new to VB though have used excel for a long time but I can't get my head around how to do this.

Essentially what I want is a sheet users will use that will have 2 buttons, Emails received and Emails completed. Everytime they receive an email they click a button and a value in a cell on a differant sheet increases by one.

I have been able to to do this using simple Macros : -

Sub Up_One()
     Range("Data!C5").Value = Range("Data!C5").Value + 1
End Sub
Sub Up_Two()
     Range("Data!D5").Value = Range("Data!D5").Value + 1
End Sub

But my issue is the data range, at present when clicked the value is written to cell C5 and D5. However, what I am after is a VLookup of sorts that will write to the cell based on the date in column B:B. In column B is a list of dates from today onwards, today being in B5, therefore when I press the button I want the data to be written to C5 and then tomorrow D5 etc.

So over time I would end up with a table like the following: -

Date Emails R Emails C
14/09 4 3
15/9 5 2

Thanks in advance!

Edit:
Title is best I could think of to describe problem!