如何向右移动一系列单元格

有人可以帮助我把一个定义的单元格列向右移动一列。 如果我定义

rng = B2:B3 

我需要一个代码来将我的值在B2：B3中移动到B3：B4。

这是我到目前为止，没有这个作品。 我在第三行发生错误。

 Dim rng As Range Set rng = Range(DataSheet.Cells(arr(z)(1), 2), DataSheet.Cells(arr(z)(1), LastCol)) rng.Insert Shift:=xlShiftToRight '(i tried this first) or rng.Offset(0, 1).Select '(I tried this second and this also did not work) 

Answer 1

 rng.Cut rng.Cells(1).Offset(0,1) 'assuming you really mean to move right