Record Cell Value Change

I found this worked well for things that are manually changed.

Private Sub Worksheet_Change(ByVal Target As Range)
Static OldVal As Variant
If Target.Address(False, False) = "A1" Then
    Application.EnableEvents = False
    If Target.Value <> OldVal Then
        Target.Offset(, 1).Value = Target.Offset(, 1).Value + 1
        OldVal = Target.Value
    End If
    Application.EnableEvents = True
End If
End Sub

However, I am trying to track the number of cahnges a cell undergoes that has a live feed. for eample, I am getting an external refrence fed into the cell to give me quotes, and want to see how many times the cell value changes.