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

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.