Select the cells or column, Ctrl + Shift + plus key
Ok, to shift cells to right.

With code:
activecell.EntireColumn.Insert shift:=xltoright

or
activecell = activecell(1,2) : activecell.clearcontents

or
With Selection
.Copy .Offset(0, 1)
.ClearContents
End With

Without knowing why you wish to do this, we cant advise you on the damage you can do to the worksheets Names and Formulas if you think this OK.
Changing the whole row or column would be a lot safer.
Which is easy to do with Ctrl & minus key for the selection.


Regards
Robert McCurdy
"Rebecca" wrote in message ...
I tried to make a macro to do this, but I failed.

I need to do this: in the same row I want to copy the contents of one cell
and then copy the same contents into the next cell to the right, and then
delete the contents in the left cell.

I have tried various keystrokes, but it doesn't seem to work. Is there any
way this can be automated? Of course using a macro would be nice, but as I
said I couldn't get it to do even this simple task. Could someone please give
me some advice? Also, I am incapable of writing a macro from scratch.

To repeat: copy the contents of a cell, paste the contents in the next cell
(to the right), and delete the contents of the first / left cell.