You can move a range with a single VBA statement
Sub MoveRange2() Range("A1:C6").Cut Range("A10") End Sub