ExCEL VBA) 중복된 데이터 추출하기

Sub ExtractOneItem()
 Dim rngAll As Range, rngCell As Range
 Dim rngOut As Range
 Dim X As New Collection
 Dim varItem
 Dim r As Integer
   
    Set rngAll = Sheets("지정시트").Columns(3).SpecialCells(xlTextValues)
    Set rngOut = ActiveCell
   
    On Error Resume Next
     
   For Each rngCell In rngAll
        X.Add rngCell.Value, CStr(rngCell.Value)
    Next rngCell
   
    For Each varItem In X
        rngOut.Offset(r, 0) = varItem
       r = r + 1
    Next varItem
End Sub