Date/Time stamp removal

[mungel]

Hi All,

I am using a simple macro that date/time stamps an adjacent cell when data is entered in a certain column...

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Or IsEmpty(Target) Then Exit Sub
If Not Intersect(Target, Range("B:B")) Is Nothing Then
    On Error Resume Next
    Application.EnableEvents = False
        Target.Offset(, -1) = Now
    Application.EnableEvents = True
    On Error GoTo 0
    End If
End Sub

Is there anyway I can merge the following code...

If Target.Value = vbNullString Then
            Range("A" & Target.Row) = vbNullString

to get the date/time stamp to automatically clear, if the data is removed again? (I am aware of the laziness of the function I am requesting here)

Much love xx