Moving every 4th cell over to columns

instead of a macro why not use formula.
Have a look at the attached sheet. SHeet 1 has the formula.

Steps
Copy the whole sheet across (once all the formual are there.
Copy + Paste special Values for the whole sheet
Then sort the whole area by Power or AMP
Delete the rows below the data you want to keep

Assuming you want a somewhat automated solution due to the length of your list, the attached should do it for you.

The "Rearranged" sheet shows how to add a few columns that allow formulas that can be dragged down to cover all of your data. The trick is to create the Entry1 - Entry"n" list in the column adjacent to and preceding your data (dragging the Entry1 cell down should auto fill for you). Then select the cells in columns B and C through the end of your data and INSERT > NAME > CREATE. This will will enable you to get the intersection of Data and Entry"n". Using the INDIRECT and CONCATENATE functions then allow you to write formulas (I've assumed that your data sets repeat every four lines) in columns D-F that can be dragged down until all of your data sets are converted.

You may want to do a copy and past special (to another sheet?) on columns D-F at some point.

I like your solution thomach

You can also do the same sort of thing by taking the data (named range) into a vba array ...manipulate with code into another array then dump it out to a new named range.

look carefully at the named ranges (some are dynamic ...and "data" had to be extended...

A more "friendly" version of my earlier posting.

Comments now shown in spreadsheet and vba coding ....should be a lot easier to follow concepts.

Please note my vba solution was written using Excel 2002 (office XP) and I understand some of the code won't work with Excel 97.