Try this instead:

copy1.Range("A:A").Cut copy1.Range("H:H")

to do it all in one line, or

copy1.Range("H:H").PasteSpecial(xlPasteAll,xlPaste SpecialOperationNone,false,false)

if you need two lines.


HTH,
JP


On Jan 9, 11:48*am, jlclyde wrote:
* *copy1.Range("A:A").Cut
* *copy1.Range("H:H").Paste
* Application.CutCopyMode = False

When excel gets to the line of code about pasting it throws an error.
I was wondering if someone coupld enlighten me as to why?

Thanks,
Jay