Copying Unique items from a range, with VBA

Heres ONE way to do it
assumes;
1) Your data is in Sheet1 @ A2
2) copies to sheet2 @ A2

Sub Copyto()
Range(Range("A1"), Range("A2").End(xlDown)).Select
Selection.AdvancedFilter Action:=xlFilterInPlace, Unique:=True
Selection.copy Destination:=Sheets("Sheet2").Range("A2")
ActiveSheet.ShowAllData
Range("A2").Select
End Sub

Post if you have diff criteria eg paste to
dynamic row ....

Ivan

One of many possible ways:

Sub UniqueCopy()
Dim fRange As Range
Set fRange = Range("A1", Range("A65536").End(xlUp))
fRange.AdvancedFilter Action:=xlFilterInPlace, unique:=True
fRange.EntireRow.Cells.SpecialCells(xlCellTypeVisible).Copy _
Sheet2.[A1]
ActiveSheet.ShowAllData
End Sub

Tom Urtis

Sorry Ivan, didn't see your's first (nt)

Tom - No problem (NT)