A case of brain freeze with "Cut Paste"

[banerg]

Hi everyone,

I am basically trying to cut active row from Sheet 3, go to Sheet 1, find the next blank row and paste.

Worksheets("Sheet3").Activate
ActiveCell.EntireRow.Select
Selection.Cut

Worksheets("Sheet1").Activate
ActiveSheet.Paste Destination:=Range("a1").End(xlDown).Offset(1, 0).Select

For some reason (and am sure - a very valid one!!) this is not working. I have already spend a lot of time on this one, so I HAVE TO BE overlooking the error again and again.

It would help a lot if fresh set of eyes gave it a look over. Appreciate it a lot.
Thanks.

 

[Cbrine]

Step 1.
Put down the slurppee

Step 2.
Change your code to this.

Worksheets("Sheet3").Activate
ActiveCell.EntireRow.Select
Selection.Cut Worksheets("Sheet1").Range("a65535").End(xlup).Offset(1, 0)


HTH
Cal

Edit:Whoops, forgot to remove the .select from the range.

 

[banerg]

Slurpee trashed!!

And oh Yeah!! It works. Thanks a ton.