Registrar cambios en una celda

[Moratti]

Tengo la siguiente fórmula con la intención que detecte los cambios en las celdas y registre la fecha en la columna B

El problema es que me inserta la fecha en cuanto pincho la celda, y solo quiero que la inserte cuando haga algún cambio.

No sé que hago mal.

uf = Range("C" & Rows.Count).End(xlUp).Row
If Not Application.Intersect(Target, Range(Cells(8, 3), Cells(uf, 59))) Is Nothing Then

Range("B" & Target.Row) = Date
Range("BH" & Target.Row) = Target.Address

Gracias.
 

[JSDJSD]

No se si te entendí,  prueba y comenata

Private Sub Worksheet_Change(ByVal Target As Range)
    uf = Range("C" & Rows.Count).End(xlUp).Row
    If Not Application.Intersect(Target, Range(Cells(8, 3), Cells(uf, 59))) Is Nothing Then
        Range("B" & Target.Row) = Date
        Range("BH" & Target.Row) = Target.Address
    End If
End Sub

[Moratti]

Si, La cosa es que con solo clickar en la celda sin hacer ningún cambio, también coge la fecha y solo quiero que lo haga cuando realmente cambie la celda de valor

En el primera celda que hago click no se cambia hasta que no hago el cambio de valor, pero en el resto del rango, como podría ser la celda C9, con solo dar el click me inserta la fecha 

[JSDJSD]

sube tu archivo