Auto Sort problem

[JohnRooney]

Hi all

I have a fairly basic diary system set up. The data is sorted using the following code.(column D is a date)

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 4 Then
    With Range("A1:D" & Range("D65536").End(xlUp).Row)
        .Sort Key1:=Range("D2"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
    End With
    End If
End Sub

It works fine, until I want to clear one of the rows of data. It will sort but leaves the blank row at the top of the sheet. Which I dont want.Is the anyway for the sheet to sort including any blank fields so that the row containing the earliest date is at the top of the list?Any help greatfully accepted.Thanks John.