title: Vba move row up and down with button except second row
body: <p>Hay I hope you can help me to do this. </p>
  
  <p>I need a VBA code which moves the row which has an activated cell up or down. the second column should be frozen not moving. </p>
  
  <p>The data looks like <a href="https://i.stack.imgur.com/I0To2.png" rel="nofollow noreferrer">Data excel</a>
  the Priority should be freeze and the rest should move up and down. </p>
  
  <p>I have this code but it moves the entire row.</p>
  
  <pre><code>Sub MoveDown()
  Selection.EntireRow.Select
  Selection.Cut
  ActiveCell.Offset(2, 0).Range("A1").Select
  Selection.EntireRow.Select
  Selection.Insert Shift:=xlDown
  ActiveCell.Offset(-1, 0).Range("A1").Select
  End Sub
  
  Sub MoveUp()
  Selection.EntireRow.Select
  Selection.Cut
  ActiveCell.Offset(-1, 0).Range("A1").Select
  Selection.EntireRow.Select
  Selection.Insert Shift:=xlDown
  End Sub
  </code></pre>
  
  <p>Thank you in advance.
  Best, </p>