Record Cell Value Change

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim LR As Long, X As Variant
If Sh.Name = "Log" Then Exit Sub
If Target.HasFormula Then Exit Sub
X = Target.Value
With Application
    .EnableEvents = False
    .ScreenUpdating = False
    If Target.Count = 1 Then .Undo
End With
With Sheets("Log")
    .Unprotect Password:="pw"
    LR = .Range("A" & Rows.Count).End(xlUp).Row
    .Range("A" & LR + 1).Value = Now
    .Range("B" & LR + 1).Value = Sh.Name
    .Range("C" & LR + 1).NumberFormat = "@"
    .Range("C" & LR + 1).Value = Target.Address(False, False)
    .Range("D" & LR + 1).Value = Target.Value
    .Range("E" & LR + 1).Value = X
    .Range("F" & LR + 1).Value = Environ("username")
    .Protect Password:="pw"
End With
If Target.Count = 1 Then Target.Value = X
On Error Resume Next
Target.Offset(, 1).Select
On Error GoTo 0
With Application
    .EnableEvents = True
    .ScreenUpdating = True
End With
End Sub

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

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