Modify Auto Clear - VB Code

Hello,

I have the following code which I am attempting to recycle into another workbook

Private Sub Worksheet_Change(ByVal Target As Range)
' If target is not within D3:D350 then quit
If Intersect(Target, Range("D3:D350")) Is Nothing Then Exit Sub
' Disable event handling while THIS macro is changing the sheet
Application.EnableEvents = False
' if the target cell has just been cleared then clear the entire row
' otherwise put the date in column "H"
Select Case Target.Value
Case Is = Empty
Range(Cells(Target.Row, "H"), Cells(Target.Row, "G")).ClearContents
Case Is <> Empty
Target.Offset(0, 4).Value = Date
End Select
' re-enable event handling and quit
Application.EnableEvents = True

I need to modify this a bit and I am coming up short ...

First .. when a number is entered into D3:D350 the current date will prefill on H3:H350
And as per above if the number in D3:D350 is deleted it then auto clears H & G ... However I would like to clear the entire row.

So if I Delete the number in D3:D350 I would like all data in A, C, E, F, G & H to autoclear.