With error trapping:

With Activecell
if .column 1 and .row < rows.count then
.cut destination:=.offset(1,-1)
end if
end with

HTH
--
AP


"Albert Einstein" a écrit dans le message de
news: ...
I am looking for a way in a macro to do the following:
1. I select a single cell (this example C3)
2. The contents of that cell are cut
3. I then want to move the data down one and to the left ( this
example B4)
4. Then paste the contents in memory to the new cell.

Also, I would like to make this macro available for any spreedsheet.
What would be the best way to set it up? I am using Excel 2003.
Thanks in advance,
Mark