ThisWorkbook.Worksheets("Sheet1").Range("B1").Copy Destination:=ThisWorkbook.Worksheets("Sheet1").Range("A1")