Overskrive tekst i kolonne hvis der den findes som dublet i en anden kolonne

Sub Ret_Til_Klar()
Dim x As Range

Application.ScreenUpdating = False

    Columns("C:C").Select
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Range("C2").Select
        ActiveCell.FormulaR1C1 = _
        "=IF(COUNTIFS(C[-2],RC[-2],C[-1],""Klar"")>0,""Klar"",IF(RC[-1]="""","""",RC[-1]))"
       
Range("C2").Select
Set x = Range(Selection.Offset(0, -2), Selection.Offset(0, -2).End(xlDown))
Selection.AutoFill Destination:=x.Offset(0, 2)
     
Range(Selection.Offset(0, 0), Selection.Offset(0, 0).End(xlDown)).Copy
   
Range(Selection.Offset(0, -1), Selection.Offset(0, -1).End(xlDown)).PasteSpecial _
Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
       
    Columns("C:C").Select
    Application.CutCopyMode = False
    Selection.Delete Shift:=xlToLeft
   
Range("B2").Select
Application.ScreenUpdating = True
End Sub