Rows to colums

I have a sheet with products and information regarding these products.
It is consistently build up in a 5-row information block per product like:

A1: name
A2: info
A3: price
A4: to be deleted
A5: to be deleted

What I want:

A1: name
B1: description
C1: Price

For product 2 it should:
A6 -> A2
A7 -> B2
A8 -> C2
A9 -> to be deleted
A10 -> to be deleted ..etcetera

The Macro should loop until no data is found in the A column. Note: some of the 2nd rows (information) are not filled. They can't be deleted but need to be left empty!

Any chance?


Edit: Recording a macro for the first 2 products gives this:

Please Login or Register  to view this content.

Only I want it to continue throughout the whole document....

Give this a try:

Please Login or Register  to view this content.

Thanks for your input JB.

This seemed to do the thrick:

Please Login or Register  to view this content.

Thanks!

Cheetah, please edit your 1st & 3rd posts and wrap the code in code tags as per forum rules.

Yes, your code will definitely work, mine will execute in about 1/2 the time, but in truth its probably going to be almost instantaneous either way, depending on the length of the data set. So good work, there.
=======

If that takes care of your need, be sure to EDIT your original post, click Go Advanced and mark the PREFIX box [SOLVED].