Remove duplicates after date

[bouncey]

Hi,

I have the following code

Sub datesorting()
  For i = Range("g" & Rows.Count).End(xlUp).Row To 2 Step -1
If (Cells(i, "h").Value <> "" And Cells(i, "h").Value <= Cells(i, "g").Value) Then Cells(i, "h").EntireRow.Delete
  Next i
End Sub

Is there any way of still running the above code but excluding todays date and before (column H)?

All help appreciated.

 

[p45cal]

At first glance replace your If line with:

With Cells(i, "h")
  If (.Value <> "" And .Value <= Cells(i, "g").Value And .Value > Date) Then .EntireRow.Delete
End With

I haven't tested this but I suspect there might be trouble with converting date values to Long type or some such, depending a little on what is in the date cells in your worksheet.

 

[bouncey]

Worked a treat, thanks.