Private Sub Worksheet_Change(ByVal Target As Range)
Dim oldvalue As Long
Dim Rng As Range
Dim LR As Long
oldvalue = Range("N8")
Set Rng = Target.Parent.Range("N8")
If Target.Count > 1 Then Exit Sub
If Intersect(Target, Rng) Is Nothing Then Exit Sub
With Sheets("Cancellations")
LR = .Range("A" & .Rows.Count).End(xlUp).Row + 1
.Range("A" & LR) = oldvalue
.Range("B" & LR) = Date
End With
End Sub