Excel VisualBasic Script

Sub MoveRange2()
    Range("A1:C6").Cut Range("A10")
End Sub