Copy method has one argument - the destination range for the copy operation
Sub CopyOne() Worksheets("Sheet1").Activate range("A1").Copy range("B1") End Sub