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

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!

Your post does not comply with Rule 3 of our Forum RULES. Use code tags around code.

Posting code between [CODE] [/CODE] tags makes your code much easier to read and copy for testing, it also maintains VBA formatting.

Highlight your code and click the # icon at the top of your post window. More information about these and other tags can be found here



(I have added these for you. In the future, please read our rules and abide by them.)