Shift contents of cells over one column

I am writing a macro that will among other things, move a range of cell data over one column. I am attempting to do something like this:

Range("AJ:BE").rows(ActiveCell.Row).Cut
Range("AK:BF").rows(ActiveCell.Row).Paste

but the .Paste line gives me an error.

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

Attempting to use PasteSpecial also gives me a (different) error.

I have googled some examples of code snippets that seem to do the same thing, so I believe I must be missing something obvious, but a few hours of poking at this hasn't yielded results. Any help would be appreciated.

Chris

Hello Chris & Welcome to the Forum,

Why not just shift everything to the right?

Sub Macro1()
    Columns("AJ:AJ").Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
End Sub

Hi,

Range("AJ:BE").Rows(ActiveCell.Row).Cells(1, 1).Insert shift:=xlToRight

achieves the same result.

late edit.

Oops! I see Jeff has beaten me to it

Hi Chris,

Let me know how this works out for you...

Sub moveover()
    Dim LR As Long
    With ActiveSheet
        LR = .Range("AJ" & .Rows.Count).End(xlUp).Row
        .Range("AJ1:BE" & LR).Copy .Range("AK1:BF" & LR)
        .Range("AJ:AJ").ClearContents
    End With
End Sub

Thanks for the suggestion Jeff. Before I saw your update, I managed to get it working with the copy/paste functions, using the following code:

        Range("AJ:BE").rows(ActiveCell.Row).Copy
        ' Range("AJ:BE").rows(ActiveCell.Row).Cut
        ' Range("AJ:BE").rows(ActiveCell.Row).ClearContents
        Cells(ActiveCell.Row, "AK").Select
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
          :=False, Transpose:=False
        Cells(ActiveCell.Row, "AJ").Value = " "

Note the commented out cut and clearcontents lines though. Using either cut, or copy and clearcontents caused the later PasteSpecial to give the same error I received before. I could only do it by just doing a copy, and then later clearing the initial cell that got shifted over. Not sure why, but at this point its academic. Thanks again for your assistance.

Moderator's Note: Please use code tags when posting code.

Glad to hear you got it working and thanks for the feedback.

==============================================

If you are satisfied with the solution(s) provided, please mark your thread as Solved.

New quick method:
Select Thread Tools-> Mark thread as Solved. To undo, select Thread Tools-> Mark thread as Unsolved.

Or you can use this way:

How to mark a thread Solved
Go to the first post
Click edit
Click Go Advanced
Just below the word Title you will see a dropdown with the word No prefix.
Change to Solved
Click Save