Sorting data on one sheet, paste and transpose

[tstansfi]

Hi

First time post-er, excel newbie.

I used Ron Bruin's VBA module to merge 732 workbooks into one worksheet. That worked great but each record (from each workbook) is spread over 38 rows. The data is all in the same columns (D, H, J and L), just spread out over 38 rows!

What I need is a code that will:

1) copy D1:D38 from worksheet1 and transpose paste to A1:AL1 in worksheet 2 then:
H1:H38 – transpose to AM1:BX1
J1:J38 – transpose to BY1:DJ1
L1:L38 – transpose to DK1:EV1

2) delete the first 38 rows and then repeat the paste transpose into row 2

I need all 732 records to be in just 732 rows. Then I'll just manually delete the empty columns.

Can anyone help!?

 

[oldbrewer]

tom				tom	joe	archie	red	blue	green
joe
archie
red
blue
green
			is this what you want

<colgroup><col width="64" span="10" style="width:48pt"> </colgroup><tbody>
</tbody>

 

[tstansfi]

It's more like this:

Tom Red 2m Steel
Tom 01 4t Plastic
Tom 65 1s paper
Joe yel 3p wool
Joe 02 7y steel
Joe 87 4q plastic

where each value in column A repeats down 38 rows, with related data in columns D, H, J and L

And what i need is:

Tom Red 2m Steel 01 4t Plastic 65 1s paper
Joe yel 3p wool 02 7y steel 87 4q plastic

Does that make sense?