Macro that uses a cell reference in a cell to activate that cell and copy it to the cell

I found some of the answer but I still need help.
The following code works just right

Please Login or Register  to view this content.

but when I adjust it so it will loop through all the ranges I need it to go through like below

Please Login or Register  to view this content.

I get this error
Run-time error '1004':

Method 'Range' of object'_Global' failed

I can get it to run anyways by adding "On Error Resume Next" but then it just grabs some pictures and puts them in the blank cells that are supposed to stay blank.
NOTE: The "blank" cells aren't really blank but have a formula that returns a blank if there is no name in the adjacent cell to match.

Any ideas? I have uploaded the file again since I found the pictures were too big for the cells and overlapped a bit causing the macro to grab two pictures instead of just the one in the target cell. SeatingChartSample.xlsm