Reaeating a Macro Help

[Adam]

OK, im still trying to figure this out, and im a complete Excel programming
newbie. But heres what i need to do.

I have two workbooks open. The 1st workbook has about 200 sheets of data
that are all formatted EXACTLY the same. (E15:H24). I need a macro that will
copy this block of data (E15:H24) and paste transposed onto cell A1 of
Workbook#2. Then i need this macro to keep repeating itself, for each sheet
in workbook #1, and pasting transposed 4 rows below the last time on workbook
#2 (each paste transposed if 4 rows of data) . I don't know if that makes
sense to you guys, but i desperately need to figure out a way to do this. I
don't really know much about coding.

Thanks,

-Adam

 

[Rick Rothstein \(MVP - VB\)]

Give this macro a try...

Sub MoveTranspose()
Dim X As Long
For X = 1 To Workbooks("Book1").Worksheets.Count
Workbooks("Book1").Worksheets(X).Range("E15:H24").Copy
Workbooks("Book2").Worksheets(1).Cells(4 * X - 3, 1). _
PasteSpecial Transpose:=True
Next
Workbooks("Book2").Worksheets(1).Range("A1").Select
End Sub

Substitute your actual workbook names in place of the Book1 and Book2 I used
as place holders in the code above.

Rick