Sub movedata()
Range("c7").Cut Range("f7").insert
End Sub
or maybe this is what you want
Sub movedata()
Range("c6").Copy Range("f7")
Range("c6").ClearContents
End Sub
--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"N+" wrote in message
...
hi all i need to make a cut - insert(value) without using select command
of
macros..
can u help me ?!? ty !