Remove Duplicate Rows based on Dates

Hi,

I have a large spreadsheet that has some duplicates in Row Q. However, in column L there is a date. I want to be able to find the duplicates in column Q then delete the duplicate with the earliest date.

Dim lrow As Long, i As Long

With Worksheets("Sheet8")
    lrow = .Range("Q" & .Rows.Count).End(xlUp).Row
    For i = lrow To 2 Step -1
        If .Range("Q" & i).Value = .Range("Q" & i - 1).Value And .Range("L" & i).Value < .Range("L" & i - 1).Value Then
            .Rows(i).Delete
            lrow = lrow - 1
        End If
    Next i
End With
End Sub