Help with code to copy cell value before change event

[p45cal]

try:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim rngToProcess As Range, sNewValue
Set rngToProcess = Intersect(Target, Range("C5:C14"))
If Not rngToProcess Is Nothing Then
  Application.EnableEvents = False
  sNewValue = Target.Value
  Application.Undo
  Target.Offset(, 1).Value = Target.Value
  Target.Value = sNewValue
  Application.EnableEvents = True
End If
End Sub

If you have problems with multiple cells being changed at once (say by copying data from another range, or from selecting a range and holding down the Ctrl key while Entering a value) come back. (In my quick testing I had no problems with multiple cell changes at once.)