Automate Transpose loop?

[MattS87]

Hello, My first question on here so I hope its clearer than mud . I have combined/modified a few codes to create a routine that will copy and transpose data from 1 sheet to another, see attached. The ranges will always be the same per row (Copy row A1 per Transpose, Copy/Transpose 10 Columns after A1, Copy/Transpose the next 10 Columns on row, Copy/Transpose the next 10 Columns on row, move to row A2 and repeat. Transpose will be 10 rows down from 1st).

Example
Raw Data:
A1 B1 B2 B3 C1 C2 C3 D1 D2 D3
A2 B1 B2 B3 C1 C2 C3 D1 D2 D3

After Code:
A1 B1 C1 D1
A1 B2 C2 D2
A1 B3 C3 D3
A2 B1 C1 D1
A2 B2 C2 D2
A2 B3 C3 D3

Currently, I have to type a code in for each row and range to be transposed. I was thinking that there has gotta be a way to have it just loop through the code to the next row until column A is blank.
Here is a snip of the code:

Please Login or Register  to view this content.

Thanks

[Bob Phillips]

Try this

Please Login or Register  to view this content.

[MattS87]

Awesome, Thanks for the quick response. This is exactly what I was looking for!