Command button to transfer between shhets

Try,

Sub One()
    ActiveCell.Copy Destination:=Sheet1.Range("C4")
End Sub
Sub Two()
    Sheet1.Range("C4") = ActiveCell
End Sub