Sub tester()
Range("B1:B4").Cut Destination:=Sheets("Sheet2").Range("A1")
End Sub

is one way

"Jeremy" wrote:

How do I transfer cell data from one sheet to the next. The cell data
contains a SUM expression if that will make it more challenging?