Find identiske værdier i kolonne og slet alle bortset fra den sidste værdi

Public Sub SletDubletPlanKolonneA()
   Dim sr As Range
   Dim prevPlan As Range
   Dim nextPlan As Range
   Set sr = ActiveSheet.Columns(1) ' kolonne A
   
   Set prevPlan = sr.Find("Plan", lookat:=xlWhole)
   
   Do While Not prevPlan Is Nothing
      Set nextPlan = sr.FindNext(prevPlan)
      If Not nextPlan Is Nothing And (prevPlan.Row <> nextPlan.Row) Then
         prevPlan.Value = ""
      End If
      If prevPlan.Row = nextPlan.Row Then
         Set prevPlan = Nothing
      Else
         Set prevPlan = nextPlan
      End If
   Loop
End Sub