Copy range and transposing multiple times on a new worksheet

I need a macro that will:
1) Copy B1:E1 on the PIVOT tab and Transpose the information onto SheetII starting on cell B2. I also need these 4 transposed cells to be repeated until the last row of column A which will change monthly so it needs to be dynamic.

I have included a workbook with example data and what end results should look like.
Please let me know if i need to explain better or differently.

thank you ahead of time.

Glenn Kennedy

Re: Copy range and transposing multiple times on a new worksheet
Agghh. I've just seen you want a macro. FWIW, here's a formula-based solution, just in case...

A2:
=IFERROR(INDEX(PIVOT!$A$2:$A$26,1+INT((ROWS($1:1)-1)/8)),"")

Adjust ranges and paste as far as needed.

B2:
=IF(A2="","",INDEX(PIVOT!$B$1:$E$1,,1+MOD(INT((ROWS($1:1)-1)/2),4)))

I went by the desired result layout, rathr than the Sheet 2 layout. They are not the same!!!

Thanks for the reply. unfortunately I need a macro. As for the difference between SheetII and desired results... I was trying to show the inbetween stage of the original transpose. The desired results which shows the duplicated cells in the transpose is the correct way.