Hi

To do what you want to do you need to split it over 2 lines.
Certainly more efficiten than your second example.

take care

Marcus

Range(Cells(500 - sizex, 3), Cells(500, 3)).Copy
Cells(3, 2).PasteSpecial xlPasteValues