reformat (transpose) macro

[jenshay]

I would like to transpose multiple cell ranges in a vertical format. J3:J10 on Sheet 1 to Sheet 2, C3:J3; M3:M10 on Sheet 1 to Sheet 2, K3:R3; and N3:N10 on Sheet 1 to Sheet 2, S3:Z3.

Skip 2 rows 11 and 12 (no data or data not wanted) on Sheet 1.

Then repeat with next block of data, range J13:J20 on Sheet 1 to Sheet 2, C4:J4 (next row down); M13:M20 on Sheet 1 to Sheet 2, K4:R4; and N13:N20 on Sheet 1 to Sheet 2, S4:Z4.

Skip 2 rows 14 and 15 on Sheet 1.

Repeat indefinitely or at least for a few hundred rows.

Is there a quick macro that can help me do this without having to cut and transpose each set of data?

Thanks!

 

[VoG]

Does this get you started?

Sub AHint()
Sheets("Sheet1").Range("J3:J10").Copy
Sheets("Sheet2").Range("C3").PasteSpecial Paste:=xlPasteValues, Transpose:=True
End Sub

 

[jenshay]

Yes, I'm all set. Thank you.