Macro based on ActiveCell.Offset

Dave Wilcox 0 Reputation points

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

A family of Microsoft spreadsheet software with tools for analyzing, charting, and communicating data.
1,617 questions
Office Development
Office Development
Office: A suite of Microsoft productivity software that supports common business tasks, including word processing, email, presentations, and data management and analysis.Development: The process of researching, productizing, and refining new or existing technologies.
3,653 questions
{count} votes