Help 'freezing' value of formulas when date becomes 'today'.

[Big.Moe]

Hello,

I already have this handy code that 'freezes' the current value of a formula when there is activity in the cell adjacent.

Private Sub Worksheet_Change(ByVal Target As Range)
If Cells(10, Target.Column) Like "PRICE*" Then
If Target.Offset(, 1).HasFormula And Target.Row > 9 Then
    Target.Offset(, 1).Value = Target.Offset(, 1).Value
End If: End If
End Sub

Now I would like to do a similar process for the "Item Description" column. This time I would like the formula values to 'freeze' when the associated date for that day becomes the current date.

Freeze Column.jpg

Regretfully, the column letter always changes, and the date cell always changes. However, they always have the same juxtaposition (see attached file of typical month sheet below). Sorry, could not upload whole workbook due to size constraints.

My VBA skills are next to nothing, but this is the general direction of what I think the code should look like:

Private Sub Worksheet_Change(ByVal Target As Range)
If Cells(38, Target.Column) Like "ITEM*" Then
If Target.Offset(38,10) {DATE = TODAY} Then
    {Column B formulas freeze to current values}
End If: End If
End Sub

Thanks for reviewing my post and hopefully I've clearly described the problem at hand. Not always the easiest task to master.