Copy / paste values

Hi

Try a sheet event macro

Private Sub Worksheet_Change(ByVal Target As Range)
  On Error GoTo prob
  Application.EnableEvents = False
  If Intersect(Target, Range("B2:B10")) Then
    Target.Offset(0, 1).Formula = "=now()"
    Target.Offset(0, 1).NumberFormat = "dd/mm/yy hh:mm:ss"
    Target.Offset(0, 1).Value = Target.Offset(0, 1).Value
  End If
prob:
  Application.EnableEvents = True
  
End Sub

rylo