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.