How to post predefined cell value to active cell

[georgiboy]

For something like this you may not even need copy/ paste

Sub MoveVal()    
    Range("A10").Value = Range("A1").Value
End Sub