Replace vlookups with values after a certain date.

Hi Folks
I need an auto run macro that will replace a range of vlookup formulas with their cell values, however the range should be from yesterday's date.
The first column provides the date.
So when I open first time in the morning the macro will run and replace all yesterdays vlookups with their values.

I have the macro below.

Sub Formulatodata()
'updatedbyJim
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "replace formulas with values"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Application.ScreenUpdating = False
For Each Rng In WorkRng
Rng.Value = Rng.Text
Next
Application.ScreenUpdating = True
End Sub

This allows me to manually select the range, however I need help with the date part .
sample attached

any ideas folks ?

Hi Skywriter, thanks for the reply
The row of vlookups dated yesterday are what needs replacing.
so for instance if I open the spreadsheet on the 2nd I need all the vlookups on the 1st replaced with their values.
so the range in that instance would be A1:G64.
Then when I open it on the 3rd I need all the vlookups on the 2nd replaced with their values
so the range in this instance would be A65:G66
and so on.

Hi thanks Sykwriter
correct it was a typo A4 was the starting reference. You are correct in your assumption once the values are entered they do not change.
The vlookups are not changed, though we do maintain a separate sheet for each month which looks up its monthly equivalent so Receipts May looks up Front door May, and Receipts June looks up Front door June and so on.
I ran the code and get a run-time mismatch error 13 debug indicates this line "cellDate = .Cells(c, 1).Value"

I deleted them and ran the code but the vlookups remain ?
In the original sheets there is N/A in all the cells that are currently unpopulated with data.
The sheet runs to around 1000 rows.
so if there has been say 50 deliveries the remaining 950 rows and columns have n/a in them.

Yep that works great, can we get it to change all the vlookups previous to the 20th
and to auto run at start up ?