Automatically Center Across Selection and Fill Based on Number in another Cell

[RLBrown]

I'm working on an event calendar and need to have the event listed in the week it starts then fill color in cells for the number of weeks that the event will run.
If possible, centering the event across the selection horizontally would be ideal. The the weeks listed in the calendar will never change as there is no 'date'.
Worksheet showing where I am currently and my end goal is attached. --- Thank You To All.

 

[RLBrown]

Click here to download your file. Please note that in column, rows 31 and 32, you have formulas. Therefore, I31 and I32, although they look blank, are not actually blank so the actual last row is not 30 but 32. Delete rows 31 and 32 and try the macro again. Also, please note that each time you run the macro, all the old information is deleted before being replaced with the new data.

Got it! Thank YoU!

 

[mumps]

You are very welcome.