Excel VisualBasic Script

Sub valueDemo()
     Worksheets("Sales").range("D10").value = range("C1").value
End Sub