Cut - Insert without .Select

[N+]

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

 

[Don Guillett]

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

 

[N+]

built easiest

Range("A80").Value = Range("F2").Value

Range("A80").Copy
Range("A81").Insert Shift:=xlDown

with this i can move thru the sheet as usual when the macro is running..