[SOLVED]Finding unique values in column

[ITboy]

Opus...It worked..Jus changed a bit in my codes...

Sub FindUniqueVessels(SourceRange As Range, TargetCell As Range)
 
    SourceRange.AdvancedFilter Action:=xlFilterCopy, _
        CopyToRange:=TargetCell, Unique:=True
    
     If Range("H1").Value = Range("H2").Value Then
        Range("H1").Select
        Selection.Delete Shift:=xlUp
       
      End If
End Sub 

Don't get angry..I muself did not understand why the cell name is such..I noticed it too.