I have 40 rows on sheet1 who are sorted by column D. The data in D column
can contain 4 different values - lets say "Alpha", "Beta", "Delta" and
"Gamma" and also be empty "" .

I have 4 different "areas" with headlines named "Alpha", "Beta", "Delta" and
"Gamma" with 20 rows under each headline in sheet2. The rows from sheet1
should be copy-pasted (or "mirrored" if no loops) out to each and don't
considered/cared for the empty rows(= "" in cell D). If there is more than
20 rows of "Alpha", "Beta", "Delta" or "Gamma", it should be an error msgbox
telling "to many rows".

I prefere to do it without a loop approach if possible because of the time
consumtion. It should all start with a macro button in the sheet. I already
have a button to sort them in order, but that might not be necessary...

Extra: Actually, It isn't the whole row that should be pasted to sheet2,
just the cells in column A and B. I'm just embarrassed to put down the whole
problem in you lap...:-)

Anybody with a helping hand? All suggestions, hints or code to deal with
parts of the problem are welcome. How to match and copy each row, how to
decide which row is free for the "next" line to be paste into etc.

I got Excel 2002 if that's matter.

/Regards