change the code so it does not create a new workbook.sheet.

Activesheet.Pictures.Paste.Select