Referenceing NonConsecutive Cell with Macro

[pepper24]

I need to extract data from Sheet1 into Sheet2. The data being extracted is sample book analysis and each book has a series of row headers and column headers. The row headers are repeated for every book while the column headers are repeated once at the top. Each book is separated by a blank row. I need to take specific data values from each book in sheet1 and copy it into sheet2. The problem is in sheet2 all the data needs to be in separate columns. For ex:

Sheet1:
A1 = Book name
A2 = Sales
Ect…

Then, (for the same book)
D1 = Costs
E1 = Qty made
Ect..

I need to take A1 and move it to Sheet2 A1
A2 and move it to Sheet2 B1
D1 and move it to Sheet2 C1
E1 and move it Sheet2 D1
Ect…

Any Ideas for a macro????

Please help.