One simple, but crude, way with this exact situation.
Sub copydiag()
With ActiveCell
..Copy Cells(1, Cells(1, Columns.Count).End(xlToLeft).Column + 1)
..Offset(1, 1).Copy Cells(1, Cells(1, Columns.Count).End(xlToLeft).Column +
1)
..Offset(2, 2).Copy Cells(1, Cells(1, Columns.Count).End(xlToLeft).Column +
1)
End With
End Sub


--
Don Guillett
SalesAid Software

"smandula" wrote in message
ups.com...
I would like to copy multiple cells that are on a diagonal such as

A B C
1 22
2 17
3 34

either to another place on the spreadsheet or hold these value,
but remove them from A1, B2, C3

If holding is possible to put back in original positions later.

Any thoughts?