delete all duplicates except one

[daveyc18]

im trying to delete all duplicates based on an ID in column F, except one (it doesn't matter which one I keep...ie it could be the first one, could be the last duplicate).

trying to do this with a macro.

 

[gfdwer2]

I hope people are still out here. I'm having very hard time finding out the code for this one guys. Picture is attached to understand it better. This is the formula that I used before which was given by @DanteAmor. It worked before but right now it doesn't. I hope someone can help me.

This is the code:
VBA Code:
Sub test()
Dim i As Long, f As Range
For i = 24 To 14 Step -2
Set f = Range("B12:B" & i - 2).Find(Range("B" & i), , xlValues, xlWhole)
If Not f Is Nothing Then Range("B" & i).ClearContents
Next
End Sub

 

[DanteAmor]

Try this

Sub test2()
  Dim i As Long
  For i = 24 To 12 Step -1
    If WorksheetFunction.CountIf(Range("B12:B" & i), Range("B" & i)) > 1 Then Range("B" & i).ClearContents
  Next
End Sub

 

[gfdwer2]

@DanteAmor OMG you are my savior. You are very helpful.

 

[DanteAmor]

Again with pleasure. Thanks for the feedback