Copy cells with unspecified values to new sheet

[JRM]

I need to write a macro (or ? VBA) to look at a column of numbers an
copy each different number to another sheet.
eg. Sheet1 Col A : contains
12345
12345
12345
67890
67890
88741
88741
88741

I need to copy 12345 to Sheet2 A:1
then find the next number eg. 67890 & copy to A:2
then 88741 to A:3
etc. etc down sheet1 until a blank cell is found.

Any help gratefully received as I'm very new to VBA's but reasonably O
with simple macros!
Thanks
Joh

 

[JWolf]

No macro needed.

Data>Filter>AdvancedFilter

Check copy to another location, check unique records only, specify the
copy to range, click OK.

 

[Frank Kabel]

Hi
one way:
- select your source data
- goto 'Data - Filter - Adavnced Filter'
- choose a seperate range as target and check 'unique
values'

 

[JRM]

Many thanks - works great - except it says you can only filter to the
active worksheet - buts thats no problem I can easily cut & paste to
where I actually want it.

Great site - great help - "I'll be back"!!
John