The code is as follows. Just make one change in line 2.

===========================

Private Worksheet _Change(ByVal Target as Range)

If the target. Then column = 3

Dimension c as a range

For each c in the target

If IsEmpty(c), then

C. Offset (,1). Clear content

other

C.Offset (,1) = Now

If ... it will be over.

then

If ... it will be over.

End joint