alphabetic list - copy each letter to different worksheet

Hi!

I have a list with approx. 60.000 entries (one per row) and one empty row after each letter. Eg:

Adam
Albert
Aston
<empty row>
Barbara
Barbie
Busty
<empty row>
Charles
...

Now, what I would need to do is to cut the rows of all entries which start with the same letter and paste them into a worksheet named after the respective letter (e.g "A", "B", "C", etc.).
Well, since this work is a little tiring, I was hoping that someone could help me with a macro who does that simple work for me, please

Every help is highly appreciated!
Thanks a lot,
A2k

Hi,

Have you tried, with a small sample, to turn on your macro recorder to start building your own macro ...?

HTH

Thanks for the help andy!

However, this is almost what I need. Instead of just copying the first cell (A1), could you make it copy the whole row?
I tried to adjust the code but failed miserably

Thanks!
A2k

Hello,

How this macro can works with number?
If the table
A1. 12
A2. 56
A3. 67

Max id 100 and make new sheet with id number

Thanks