Populating Cells using VBA based on Values from another sheet

[amazon_devil]

I am trying to figure out a tidy way to write the following scenario.

Worksheet A
Has a list that, from project to project will vary in the number of rows in it.

Example of information in Worksheet A. Data to be used in Calendar Month column.
[TABLE="class: grid, width: 500, align: left"]
<tbody>[TR]
[TD]Calendar Month[/TD]
[TD]Start Date[/TD]
[TD]End Date[/TD]
[/TR]
[TR]
[TD]Jul-18[/TD]
[TD]01/07/2018[/TD]
[TD]31/07/2018[/TD]
[/TR]
[TR]
[TD]Aug-18[/TD]
[TD]01/08/2018[/TD]
[TD]31/08/2018[/TD]
[/TR]
[TR]
[TD]Sep-18[/TD]
[TD]01/09/2018[/TD]
[TD]30/09/2018[/TD]
[/TR]
[TR]
[TD]Oct-18[/TD]
[TD]01/10/2018[/TD]
[TD]31/10/2018[/TD]
[/TR]
[TR]
[TD]Nov-18[/TD]
[TD]01/11/2018[/TD]
[TD]30/11/2018[/TD]
[/TR]
[TR]
[TD]Dec-18[/TD]
[TD]01/12/2018[/TD]
[TD]31/12/2018[/TD]
[/TR]
</tbody>[/TABLE]













Worksheet B
Tracking sheet that is using the list from Worksheet A, to populate the titles of columns going across the sheet.


I want the script to use the value in each of the rows (3 times each before moving to the next row) from Worksheet A, across the top of worksheet B to create the titles for a table.

 

[Yongle]

So what does worksheet B look like?