Run time error - Method range of object failed message when trying to cut entire row

[almilw]

I am new to excel macros and VBA. Here's my code. I'm trying to cut a row and paste it after the last cell in the previous row. It's getting hung up on the fourth line of the code.

 If PrevYear = CurrYear Then
           Selection.EntireRow.Cut
           Selection.Offset(-1, 0).Select
           Range(ActiveCell).End(x1LastColumn).Select
           Range(ActiveCell, ActiveCell.Offset(0, 1)).Paste
        End If

Any help would be appreciated.

[MarvinP]

Hi almilw,

before you look at
http://msdn.microsoft.com/en-us/libr...ffice.11).aspx

Edit your post by clicking on the green "Edit" button below your message. Then click on "Go Advanced", Select the code in the message and click on the "#" icon just above the message. This will put code tages around your code and make you a better poster on the site.

After doing the above look at the possible things that can go after End.

[almilw]

I'm not sure what to put after End. I don't know VBA so I'm just stabbing in the dark at what to do.

[MarvinP]

Hi almilw,

There are only 4 things that can go in the () after .End, they would be: xlUp, xlDown, xlToRight or xlToLeft.

Based on your pseudo code above I believe you wanted to do a.

Range(ActiveCell).End(xlToRight).Select

I hope that helps.

[romperstomper]

You cannot paste an entire row to anywhere other than column A, since it won't fit.