Macro required to delete rows based on date

Hi

I'm completely new to VBA in Excel , appreciate that I need to do some learning but I need a quick solution to this particular problem - if anyone can help would be really appreciated

I have a large spreadsheet with date stamped data where each row has been created. Date in column 'R'. I need the last created row for a particular object (i.e. all other earlier rows need to be deleted). Each object has a unique identifier in column 'D'

So essentially based on the date in column R, I need to delete all rows except the latest one created for each unique object

Many thanks!

Hi

See how this goes.

Sub aaa()
  Dim nodupes As New Collection
  For Each ce In Range("D2:D" & Cells(Rows.Count, "D").End(xlUp).Row)
    On Error Resume Next
    nodupes.Add Item:=ce.Value, key:=CStr(ce.Value)
    On Error GoTo 0
  Next ce

  For i = 1 To nodupes.Count
    lastrow = Cells(Rows.Count, "D").End(xlUp).Row
    maxdate = Evaluate("=MAX(IF(D2:D" & lastrow & "=" & nodupes(i) & ",R2:R" & lastrow & ",""""))")
    For j = lastrow To 2 Step -1
      If Cells(j, "D") = nodupes(i) And Cells(j, "R") <> maxdate Then
        Cells(j, "D").EntireRow.Delete
      End If
    Next j
    
  Next i
End Sub

rylo