Copy column and paste to end of first column

Hi everyone,

I'm VERY new to vba and needed some help with a task.
I want to take four columns (not always adjacent) and paste them below the first set of columns while also adding a column that will consist of the header of one of the columns I pasted.

I don't think I can explain it very well, but but my Excel attachment shows what I have now (sheet: old) and what I want to have it look like at the end (Sheet: new).
The number of people ("names") and the number of months across the top will always vary. But there will ALWAYS be 3 columns ("name", "team", "dept") before the month headers begin.

The reason I want to do this is so I can make a pivot table that can filter by month and by name and by team. Any suggestions?

Thanks in advance for the help!