Just delete the cell (and shift up) or delete the whole row after you do the
copy.

....
sheets("sheet2").rows(1).delete
....



Mister Dolopo wrote:

Thanks Guys,

Small problem, this macro copies my heading value as well
as the data below. Can this be rectified to only copy the
data?

thanks

-----Original Message-----
Try this Mister

Column A must have a header cell

Sub test()
ActiveSheet.Columns("A:A").AdvancedFilter _
Action:=xlFilterCopy, _
CopyToRange:=Sheets("Sheet2").Range("A1"),
Unique:=True
End Sub



--
Regards Ron de Bruin
(Win XP Pro SP-1 XL2000-2003)
www.rondebruin.nl



"Mister Dolopo" wrote in message
...
How with code would I do an auto filer - unique values
and
copy these values to another sheet?

thanks


.


--

Dave Peterson