Extract unique values from range

Option Explicit
Sub Macro1()
    Dim LR As Long
    Dim Codes As Variant
    LR = Sheets("recap").Cells(Rows.Count, "C").End(xlUp).Row
    Range("AB2").EntireColumn.ClearContents

    Range("C1").Resize(RowSize:=LR).AdvancedFilter _
        Action:=xlFilterCopy, _
        CopyToRange:=Range("AB2"), _
        Unique:=True
        
    Range("AB2").Select
    Selection.Delete _
        Shift:=xlUp
        
    Codes = WorksheetFunction.Transpose(Range("AB2:AB4").Value)
    Range("AB2").EntireColumn.ClearContents
End Sub