Can someone tell me if what I am asking is even possible. I have tried a few methods but end up deleting a whole bunch of things that I don't want to. This is the last thing I need for the spreadsheet - help is much appreciated.
This will still clear the cell in column D if the entire rows content is cleared as well as deleted - maybe it is close enough for what you are trying to achieve.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim i as Long
If Target.Address = Target.EntireRow.Address Then
Application.EnableEvents = False
For i = 1 To Target.Areas.Count
If Target.Areas(i).Row > 1 Then
If Evaluate("=COUNTA(" & Target.Areas(i).Address & ")") = 0 Then
Range("D" & Target.Areas(i).Row - 1).ClearContents
Application.EnableEvents = True