Unikke poster i regneark

Skal den fjerne linien hver gang der er en genganger?
Hvorfor er det den første linie og ikke den sidste, som skal fjernes?

Den skal kun gemme den seneste forekomst med f.eks. PC01. Der kan godt være flere end to poster med PC01. 

Følgende kode sletter alle gengangere, men lader den FØRSTE stå.
Hvis vi så på en eller anden måde kunne \"omvende\" din liste ...

Public Sub DeleteDuplicateRows()
\'
\' This macro deletes duplicate rows in the selection. Duplicates are
\' counted in the COLUMN of the active cell.

Dim Col As Integer
Dim r As Long
Dim C As Range
Dim N As Long
Dim V As Variant
Dim Rng As Range

On Error GoTo EndMacro
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual

Col = ActiveCell.Column

If Selection.Rows.Count > 1 Then
    Set Rng = Selection
Else
    Set Rng = ActiveSheet.UsedRange.Rows
End If

N = 0
For r = Rng.Rows.Count To 1 Step -1
    V = Rng.Cells(r, 1).Value
    If Application.WorksheetFunction.CountIf(Rng.Columns(1), V) > 1 Then
        Rng.Rows(r).EntireRow.Delete
        N = N + 1
    End If
Next r

EndMacro:

Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic

End Sub

Tak for det hurtige svar. Det virkede perfekt.

Ja, men den lader ikke det SIDSTE svar stå! Den lader det FØRSTE stå!

Jeg finder selv løsningen med at \'vende\' rækkerne.

Ellers tror jeg nok jeg kan lave en formel til formålet.