Extract unique values from range

Not sure if this is what you mean...

Option Explicit

Sub esbencito()
Dim Val, i As Long, L(1 To 3) As String
Application.ScreenUpdating = False
With Sheet1.UsedRange.Rows
    Range(.Cells(1, 1), .Cells(.Count, 1)).AdvancedFilter xlFilterCopy, , .Range("C1"), True
    Range(.Cells(2, 3), .Cells(.Count, 3)).Sort Key1:=Range("C2"), Order1:=xlAscending, Header:=xlNo
    With .Range("C1").CurrentRegion:  Val = .Value:  .Clear:  End With
    For i = 2 To UBound(Val)
        L(i - 1) = Val(i, 1)
        Debug.Print L(i - 1)
    Next i
End With
Application.ScreenUpdating = True
End Sub