title: How to shift a range of cells to the right
body: <p>Can someone please help me in shifting a defined cell range one column to the right. 
  if i define</p>
  
  <pre><code>rng = B2:B3
  </code></pre>
  
  <p>I need a code to move my values in B2:B3 to B3:B4.</p>
  
  <p>Here is what i have so far and none of this works. I get an error in the third line. </p>
  
  <pre><code>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)
  </code></pre>