First, did you not notice the line:
'Application.CopyObjectsWithCells = True 'if images don't copy over try including this line.
Have you tried enabling it by removing the first apostrophe?

If that fails I've got to see the workbook - attach it here.