title: Circular shift of column values in excel
body: <p>How can I perform circular shift of column values in excel ?</p>
  
  <p>I tried:</p>
  
  <pre><code>Sub RowInsert()
  Application.ScreenUpdating = False
  Rows("1:1").Select
  Selection.Insert Shift:=xlDown
  Range("A1").Select
  Selection.End(xlDown).Select
  Selection.End(xlDown).Select
  Selection.Cut
  Range("A1").Select
  ActiveSheet.Paste
  Application.ScreenUpdating = True
  
  End Sub
  </code></pre>
  
  <p>but its not working.. There is a way to do it without VB ? </p>