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

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

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

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

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

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