Try this and let me know if it works. You can change the range if needed.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Request_Quantity As Range
Set Request_Quantity = Range("C6:C100")
If Not Application.Intersect(Request_Quantity, Range(Target.Address)) _
Is Nothing Then
ActiveCell.Offset(-1, 1).Select
ActiveCell.FormulaR1C1 = "=IF(RC[-1]>0,NOW())"
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
End If
End Sub
Bookmarks