transposing rows into multiple columns

Hi All,

I am new to the vba world. I am trying to write a macro for transposing one row into multiple columns where the starting point for each column will be 15 cells starting from B4. The no of rows are 1 to 200. Each row needs to be transpose in to 12 columns.

Thanks in Advance