Fecha automática en una celda especifica con macro

Checa con este código, a mi me funciona bien.

Private Sub Worksheet_Change(ByVal Target As Range)
Application.MoveAfterReturn = False
If Target.Count = 1 Then
  If Not Intersect(Target, Range("C2:C100")) Is Nothing Then
    Cells(Target.Row, "B") = Now
  End If
End If
End Sub

como verás, esta para detectar cambios de C2 a C100, sólo ajústalo a tus necesidades.

Para poner la fecha en las celdas de la columna B si ya existe información en la columna C, primero debes ejecutar la siguiente macro, solamente una vez.

Pon la siguiente macro en un módulo y la ejecutas solamente una vez sobre tu hoja.

Sub Poner_Fecha()
'Por Dante Amor
    For i = 7 To Range("C" & Rows.Count).End(xlUp).Row
        If Cells(i, "C").Value <> "" Then
            Cells(i, "B").Value = Date
        End If
    Next
    MsgBox "Fechas colocadas"
End Sub

Después de actualizar la columna B, entonces pon la siguiente macro en los eventos de tu hoja, para que de esa forma, cada vez que pongas un dato en la columna C, se actualice la fecha de la columna B.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Columns("C")) Is Nothing Then
    If Target.Count > 100 Then Exit Sub
        For Each c In Target
            If c.Value = "" Then
                'Cells(c.Row, "B").Value = ""
            Else
                Cells(c.Row, "B").Value = Date
            End If
        Next
    End If
End Sub

Sigue las Instrucciones para poner la macro en los eventos de worksheet

1. Abre tu libro de excel
2. Para abrir Vba-macros y poder pegar la macro, Presiona Alt + F11
3. Del lado izquierdo dice: VBAProject, abajo dale doble clic a worksheet(tu hoja)
4. En el panel del lado derecho copia la macro