sub collection()

   Dim strCnt As Integer
strCnt = Range(cells( 1 , 1 ),cells( 1 , 1 ).End(xlDown).Count  ' подсчет количества строк в массиве
   
   Dim Mass() As String
   ReDim Mass( 1  To w)
   Dim Coll As Collection

For i =  1  to w 

  coll.Add Mass(i)    ' загрузка массива в коллекцию

Next i

For j =  1  to coll.Count

    Cells(j, 2 ) = coll(j)

next j

end sub

On Error Resume Next
For i =  1  to w 
  coll.Add Mass(i), CStr(i)    ' загрузка массива в коллекцию
Next i
On Error Goto  0 

Sub X()

    Dim avarItems( 1  To  100 ) As Variant
    Dim col As New collection
    Dim intI As Integer
    
    Randomize
    
    Debug.Print "Исходные данные:"
    
    On Error Resume Next
    
    For intI =  1  To  100 
        avarItems(intI) = Cells(intI,  1 ) 
        Debug.Print avarItems(intI)
        col.Add avarItems(intI), CStr(avarItems(intI))
    Next intI
    
    Debug.Print "Уникальные значения:"
    
    For intI =  1  To col.Count
      Cells(intI,  2 ) = col.Item(intI)
    Next intI
End Sub