I think you want to drop the first part of that line of code. this should be
close to what you want...

with activecell.entirerow
.copy sheets("Sheet2").cells(rows.count, "A").end(xlUp).offset(1,0)
.delete
end with

--
HTH...

Jim Thomlinson


"Sam" wrote:

Hi,

My simple macro is supposed cut a line from Sheet 1 and paste it to the
first available Row in Sheet 2, and then delete the original line from Sheet
1. It would work, I think, if I could get past the first line. The first
line is:

Worksheets(1).ActiveCell.EntireRow.Select

I get message:

Run-time error `438':
Object doesn't support this property or method.

(My plan is to have user activate this macro with a hot key, like Ctrl +
R., as he is scrolling through sheet and finds a line that should be moved.)

What should the syntax be to select the row where the cursor is??

Thank you,

Sam