OR
Sub MakeUniqueandcopytoothersheet1()
With Range("A1:a14")
..AdvancedFilter Action:= _
xlFilterInPlace, Unique:=True
..Copy Sheets("sheet5").Range("a9")
..AutoFilter
End With
End Sub


--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Don Guillett" wrote in message news:...
Makes list and copies to UNused range and then deletes. Modify to suit

Sub MakeUniqueandcopytoothersheet()
Range("A1:B14").AdvancedFilter Action:=xlFilterCopy, _
CopyToRange:=Range("h1"), Unique:=True
With Range(Range("h1"), Range("h1").End(xlDown))
.Copy Sheets("sheet5").Range("a9")
.Clear
End With
End Sub

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Faraz A. Qureshi" wrote in
message ...
Could one devise a macro to copy only uniques from a specific column(s)
of
the "Selected" sheets to a new sheet? Because copying them all together
on a
new sheet and then removing the duplicates won't be possible as the
entries
in all might exceed the total rows of a single sheet.

Furthermore, the column of one of sheet might contain the entries already
in
other sheet copied to the new sheet, the macro could also exclude such
codes.

Thanx in advance 4 all your help.

--
Best Regards,

Faraz