title: Insert new row below the selected cell or row
body: <p>I have protected excel sheet. The first row is at no.10 and all new rows are inserted below. </p>
  
  <p>I have put below code with command button to insert a new row at the bottom with same format and formula copied from above row. This works perfectly fine.</p>
  
  <pre><code>ActiveSheet.Unprotect""
  ActiveSheet.Range("A10").CurrentRegion.Offset(ActiveSheet.Range("A10").CurrentRegion.Rows.Count - 1).Resize(2).EntireRow.FillDown
  ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
  , AllowFormattingCells:=True, AllowDeletingRows:=True, AllowSorting:=True _
  , AllowFiltering:=True
  ActiveSheet.Protect "", True, True
  </code></pre>
  
  <p>But I cannot insert a new row in the middle of rows(with same format and formulas copied from above row). </p>
  
  <p>Can someone please edit my code so that I can insert a new row anywhere in the middle of rows wherever I want to insert by highlighting with mouse click. </p>
  
  <p>Of course the new row should be created below the highlighted cell and copied with same format and formulas as above row.</p>