Dealing with 'Today()' formula in Excel VBA code

Hi Everyone,

I have this VBA code in a Excel sheet (specifically in the Module) which does the following:
- finds the empty cell in range "B:B"
- enters and formats today's date in the cell immediately below the empty one
- enters the name of the person entering the data below the date.

Sub findbottom()
'
' getDate_Name Macro
' request and insert date and name of person who did entry.
'
' Keyboard Shortcut: Ctrl+Shift+G
'
ActiveSheet.Cells(Rows.Count, 2).End(xlUp) _
.Offset(2, 0).Select
Selection.FormulaR1C1 = "=TODAY()"
Selection.NumberFormat = "[$-809]dd mmmm yyyy;@"

With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 5287936
.TintAndShade = 0
.PatternTintAndShade = 0
ActiveCell.Select

yourName = InputBox("What is your name?")
ActiveSheet.Cells(Columns.Count, 2).End(xlUp) _
.Offset(1, 0).Value = "Data entered by: " & yourName

End With
ActiveSheet.Cells(Rows.Count, 2).End(xlUp) _
.Offset(1, 0).Select
End Sub


My problem is that any time I run the code, it updates all the previous dates to the current one. How do I modify the code to only enter today's date without updating previous dates entered on the sheet?

Thanks in advance for you help.
Masinyaka