Remove duplicates in certain order

[Exceladd1ct]

Hello,
I want to remove all duplicates but keep the last one.
I found this code and adapted it to my situation. But I got stuck because the code only compares and removes the next value upwards in order to keep the last duplicate and delete the rest. But I have 3, 4, 5 or more duplicates.
Can anyone please help me get this done?

Sub Dupe_Killer_Keep_Last()
Dim lrow As Long

    For lrow = Cells(Rows.Count, 2).End(xlUp).Row To 2 Step -1
        If Cells(lrow, 2) = Cells(lrow, 2).Offset(-1, 0) Then
           Cells(lrow, 2).Offset(-1, 0).Value = ""
        End If
    
    Next lrow
End Sub

 

[footoo]

Sub Dupe_Killer_Keep_Last()
Dim lrow As Long
For lrow = Cells(Rows.Count, 2).End(xlUp).Row To 2 Step -1
    If Cells(lrow, 2) = Cells(lrow, 2).Offset(-1, 0) Then
        If rng Is Nothing Then
            Set rng = Cells(lrow, 2).Offset(-1, 0)
        Else
            Set rng = Union(rng, Cells(lrow, 2).Offset(-1, 0))
        End If
    End If
Next lrow
If Not rng Is Nothing Then rng.ClearContents
End Sub

 

[Exceladd1ct]

Thank you, I am getting a 424 Object Required error. Any ideea why?

 

[Exceladd1ct]

Dim Rng As Object
Solved the problem, thank you for your help, it works great.

 

[footoo]

Sub Dupe_Killer_Keep_Last()
Dim lrow As Long,[COLOR=#ff0000] rng As Range[/COLOR]
For lrow = Cells(Rows.Count, 2).End(xlUp).Row To 2 Step -1
    If Cells(lrow, 2) = Cells(lrow, 2).Offset(-1, 0) Then
        If rng Is Nothing Then
            Set rng = Cells(lrow, 2).Offset(-1, 0)
        Else
            Set rng = Union(rng, Cells(lrow, 2).Offset(-1, 0))
        End If
    End If
Next lrow
If Not rng Is Nothing Then rng.ClearContents
End Sub