Formula Needed to auto populate current date when text entered into a cell

Try this:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Intersect(Target, Range("C29:C39")) Is Nothing Then Exit Sub
    Range("B29:B39") = Date

End Sub

Put this in the worksheet event and not as a module.