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