Return unique items ? 1

[xq]

why this code doesn't work? this code should return all the unique values from range A2:A100 to range C, but it seems did nothing. anybody have a clue? thanks million!

FindUniqueValues Range("A2:A100&quot, Range("C1&quot

Sub FindUniqueVal(SourceRange As Range, TargetCell As Range)
SourceRange.AdvancedFilter Action:=xlFilterCopy, _
CopyToRange:=TargetCell, Unique:=True
End Sub