VBA - Delete Duplicate Rows in columns but Keep Last raw

[jomakram]

I need help please, i want to delete raws if cells in columns A and B are duplicated, but i want to keep the last duplicated raw and delete all previous ones.

i got this code, it works but it keeps the fist raw not the last.

Sub DelDuplicates()
'
' Macro working but keeps 1st record and delete the rest
'

Dim current As String
ActiveSheet.Range("A1").Activate
Do While ActiveCell.Value <> ""
current = ActiveCell.Address
ActiveCell.Offset(1, 0).Activate
Do While ActiveCell.Value <> ""
If ((ActiveSheet.Range(current).Value = ActiveCell.Value) And (ActiveSheet.Range(current).Offset(0, 1).Value = ActiveCell.Offset(0, 1).Value)) Then
' next raw
Selection.Offset(1, 0).Select
' end of next raw
ActiveSheet.Rows(ActiveCell.Row).Delete
Else
ActiveCell.Offset(-1, 0).Activate
End If
Loop
ActiveSheet.Range(current).Offset(1, 0).Activate
Loop
End Sub

 

[jomakram]

This is an example, if cells in column A are duplicated and also in B are duplicated, then delete the first raws (is this case leave the last one that has the date Jun 08, 2019)

 

[LazyBug]

Try this on a copy of your data.

Sub jomakram()
Dim a As Long, b As Long
With ActiveSheet
    b = Cells(Rows.Count, 1).End(xlUp).Row
    For a = b To 2 Step -1
           If Cells(a, 1).Value = Cells(a - 1, 1).Value Then
                If Cells(a, 2).Value = Cells(a - 1, 2).Value Then
                    If Cells(a, 1).Value <> "" Then Rows(a - 1).Delete
                End If
           End If
    Next a
End With
Application.ScreenUpdating = True
End Sub