Copy method can use an argument that represents the destination for the copied range.
Sub CopyRange() range("A1").Copy range("B1") End Sub