Macro based on ActiveCell.Offset

Question

I'm trying to create a simple macro to move cells to different positions in relation to the ActiveCell position. The Cut works fine. The I don't understand why the Paste or PasteSpecial fail?

Sub CopyAcross()
	ActiveCell.Offset(1, 0).Cut
    ActiveCell.Offset(-1, 1).Paste 'or PasteSpecial
    ActiveCell.Offset(2, 0).Cut
    ActiveCell.Offset(0, 2).Paste
    ActiveCell.Offset(3, 0).Select 'Move to the next section
End Sub