Non sono certo di aver ben compreso.... ma prova una cosa simile e poi eventualmente
cerca di aggiustarla
Option Explicit
Private oldValue As Byte
Private Sub Worksheet_Change(ByVal Target As Range)
If Replace(Target.Address, "$", "") = "A1" Then
If Target.Value <> oldValue Then
Cells(1, 2).Value = Cells(1, 2) + 1
oldValue = Target.Value
End If
End If
End Sub
Per il TIMER direi che EXCEL non ne dispone... ci sono soluzioni per emularlo... ma sono complesse.