whats wrong with my code

i HAVE THIS CODE BELOW

Sub datam()
Sheets("Sheet1").Range("A1:D25").Copy
    Sheets("Sheet2").Range("A65536").End(xlUp).Offset(1, 0).PasteSpecial _
        Paste:=xlPasteValues
    Application.CutCopyMode = False



End Sub

However I don't want it to copy instead I want it to cut however when I do this it goes wrong

Sheets("Sheet1").Range("A1:D25").Cut
    Sheets("Sheet2").Range("A65536").End(xlUp).Offset(1, 0).PasteSpecial _
        Paste:=xlPasteValues
    Application.CutCopyMode = False