Hello Syed,

You don't need to to use Cut/Copy/Paste to copy the contents of a cell
into another cell. It looks like you have this code in the body of a
with statement, so I didn't make any changes to the periods you have
placed in the code.

Example:
lRow = .Cells(.Rows.Count, 1).End(xlUp).Row
..Cells(lRow, 1).Offset(0, 1).Value = .Cells(lRow, 1).Value

The Offset adds the values to the cells's Row and Column numbers to
create the new cell address. For the Row negative numbers more Left and
positive move Right. For the Column negative numbers move Up and
positive move Down.

Sincerely,
Leith Ross


--
Leith Ross
------------------------------------------------------------------------
Leith Ross's Profile: http://www.excelforum.com/member.php...o&userid=18465
View this thread: http://www.excelforum.com/showthread...hreadid=503019