Need Macro to copy, paste and repeat

I need macro to copy a range of cells (B1:C4), then special paste transpose to (D1:G2), then go to B5 and repeat until the end.

Basically I have two columns that have sets of rows that I need to transfer to to columns. As an example:

1 A
2 A
3 A
4 A
1 B
2 B .. and so on

I need to transfer that to:

1 2 3 4
A A A A
1 2 3 4
B B B B and so on until the end of the data.


I would appreciate any help you can lend.