Private Sub Worksheet_Change(ByVal Target As Range)
Dim Cel As Range
If Intersect(Target, Columns(2)) Is Nothing Then Exit Sub
For Each Cel In Intersect(Target, Columns(2))
If IsEmpty(Cel.Offset(0, 9)) And Not (IsEmpty(Cel)) Then _
Cel.Offset(0, 9) = Date
If IsEmpty(Cel) then Cel.Offset(0, 9).clearcontents '****************
Next Cel
End Sub