nevermind, I think I took the example too literally. If he meant this, then
it worked

1 data Dup
1 data Dup
1 data Dup
2 data
3 data Dup
3 data Dup
4 data
5 data Dup
5 data Dup
5 data Dup


"Bob Phillips" wrote:

You don't need a macro.

In B1, add =IF(COUNTIF(A:A,A1)1,"Dup","")

Then put an autofilter on column B and filter to True

Delete all visible rows.

--
HTH

Bob Phillips

"RMort" wrote in message
...
I am totally new to macros and would like some assistance on a macro that
will look at a column of data and when it finds a duplicate, delete the
entire correspnding row. I've searched through the group and found ones
that
will delete just one of the 2 or more rows but I need them all deleted.

Here is an example

To start with:

1 data
1
1
2 data
3 data
3
4 data
5 data
5
5

and end with:

2 data
4 data

Thanks in advance for any help you can provide.