Excel Tutorial: Finding unique values in a column and paste it in another using MS Excel Macro

Public Function UniqueValues(ByVal SourceValues As Range, ByVal DestColumn As String, ByVal DestRowNum As Integer) As Variant
'Returns a variant containing the unique values in a range
'If called from a worksheet array formula, returns either a row or column array, as needed.
Dim Items As New Collection
Dim i As Long, m As Long, nCols As Long, nRows As Long, Row As Long
Dim cel As Range
Dim Result() As Variant
Dim cel1 As Range
Dim SV As Range
Dim RV As Range
Dim cel2 As Range
Dim mino As Integer

On Error Resume Next
For Each cel In SourceValues.Cells
    If cel <> "" Then Items.Add cel, CStr(cel)
Next
nCols = Application.Caller.Columns.Count
nRows = Application.Caller.Rows.Count
m = Application.Max(nCols, nRows)
On Error GoTo 0

i = Items.Count
ReDim Result(1 To i)
For Row = 1 To i
    Result(Row) = Items(Row)
Next Row

If m > i Then
      ReDim Preserve Result(1 To m)
      For Row = i + 1 To m
          Result(Row) = ""
      Next Row
End If
      For Row = 1 To i
          ActiveSheet.Range(DestColumn & DestRowNum + (Row - 1)) = Result(Row)
      Next Row
End Function

Sub UseIt()
      Application.ScreenUpdating = False
      'UniqueValues(Source Column Range, Destination Column Name, Destination Column Row Number)
      Call UniqueValues(ThisWorkbook.Worksheets("Sheet1").Range("A2:A100"), "C", 5)
      Application.ScreenUpdating = True
End Sub