Desde que você não tenha especificado qual linha / linhas para cortar, colar e excluir, portanto, eu assumi a linha de origem e destino. Melhor você alterar o intervalo que você precisa.
Sub CutPaste()
Worksheets("Sheet1").Activate
Range("A2").Select
Selection.Cut
Range("A10").Select
ActiveSheet.PasteSpecial Paste:=xlPasteValues
Range("A2").EntireRow.Delete
End Sub
Espero que isso ajude você.