Match names and copy row to end of each row of a schedule

[Kflannagin]

Please see sample worksheet.

I'm looking to develop some code to delete the empty hidden rows in this worksheet and copy each person's schedule to the right of their name (so that the schedule is 8 weeks wide, instead of 4 weeks wide with 2 schedules on top of each other). Please note that the names are in different order and the bottom four week schedule has employees who are not on the top schedule.

The code I'm working with right now to delete empty hidden rows is:

Sub deleteBlankRows() On Error Resume Next Columns("A").SpecialCells(xlCellTypeBlanks).EntireRow.Delete End Sub

Any help would be greatly appreciated!