Using macro to input static date

[Dark Pelican]

Hi,

I found a piece of code on the internet that input the date into one column upon changing a another; however, I wanted to alter the code so that it would only input the date upon something being entered into the target column and not just any change (at the moment it puts the date in even if I clear all the information). I was also wondering whether it was possible to have the date disappear if the information is deleted.

Here is the current code. I'd appreciate all the help I can get:

Private Sub Worksheet_Change(ByVal Target As Range)
Set t = Target
Set a = Range("D:D")
If Intersect(t, a) Is Nothing Then Exit Sub
Application.EnableEvents = False
t.Offset(0, 9).Value = Date
Application.EnableEvents = True
End Sub