Sub unic()
     Dim i&, m&: z = Range("A2:A" & Range("A" & Rows.Count).End(xlUp).Row).Value
    With CreateObject("scripting.dictionary"): .CompareMode = 1
      For i = 1 To UBound(z)
         If .exists(z(i, 1)) = False Then
           m = m + 1: .Item(z(i, 1)) = 0:  z(m, 1) = z(i, 1)
         End If
     Next
   Range("F5").Resize(.Count, 1).Value = z
   End With
End Sub

Sub usual()
     Dim z, i&: z = Range("A2:A" & Range("A" & Rows.Count).End(xlUp).Row).Value
    With CreateObject("scripting.dictionary"): .CompareMode = 1
    For i = 1 To UBound(z)
         If .exists(z(i, 1)) = False Then .Item(z(i, 1)) = 0
   Next
   Range("E5").Resize(.Count, 1).Value = Application.Transpose(.Keys)
   End With
End Sub