I think the issue is that you are pasting to the whole of the active sheet.Try replacing "activesheet.paste" with "selection.paste"