Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Columns(1)) Is Nothing Then
If IsNumeric(Target.Value) Then
If Target.Value > 0 Then
If Target.Offset(0, 1).Value = "" Then
Target.Offset(0, 1) = Date
End If
End If
End If
End If
End Sub