I just re-tested both of these and they worked just fine. Moved the range to
the new cell, one down.
Sub cutpaste()
'Range("d2:d5").Cut Destination:=Range("c2").Offset(1)
Range("cpyrng").Cut Destination:=Range("c2").Offset(1)
End Sub

Post YOUR code for us to see and RE-state EXACTLY what you are trying to do

--
Don Guillett
SalesAid Software

"Danny" wrote in message
...
Thanks again for your prompt response Don. However, it did not work. I
even
replaced my named range to the actual range.

"Don Guillett" wrote:

range("c3")
or
range("c2").offset(1)

--
Don Guillett
SalesAid Software

"Danny" wrote in message
...
Thank you for your response. The destination is one cell down (variable
range). How will I properly address one cell down?

Thanks again.

"Don Guillett" wrote:

a bit simpler. Change range to your range name and the destination
cell.
Sub cutpaste()
Range("d2:d5").Cut Destination:=Range("c2")
End Sub

--
Don Guillett
SalesAid Software

"Danny" wrote in message
...
Hi,

I recorded my step-by-step entries and changed some of the commands
as
follows:

Sub Macro1()
'Range("Q95:Q99").Select = This code was replaced with:
Range("Mo_401k").Select
Application.CutCopyMode = False
Selection.Cut
'Range("Q96").Select = This code was replaced with:
ActiveCell.Offset(1, 0).Select
ActiveSheet.Paste
End Sub

Even if i don't change some of the commands, the macro does not run
and
always highlights "Activesheet.Paste" as the error.

Please help