Auto delete

Hi - Khaled has been so kind helping me with auto date. I'm now asking for help for a code that auto delete the date when the initial data is deleted can anyone be so kind to help? Thanks!

Sub worksheet_Change(ByVal Target As Range)

Dim Cell As Range
For Each Cell In Target
With Cell
If .Column = Range("B2:B300").Column Then
Cells(.Row, "A").Value = Date + Time
ElseIf .Column = Range("J2:J300").Column Then
Cells(.Row, "H").Value = Date + Time
End If
End With
Next Cell

Thanks so much, very much appreciated!