title: Insert new row after last used row and copy formula and format from above
body: <p>I want a macro that will find the last row with data, then insert a new row beneath and copy the format and formula from above (formula is in column F).  The code I have inserts a new row in the same spot each time.  Is this possible?</p>
  
  <p>Here's what I have:</p>
  
  <pre><code>    Sub AddNewRow()
  '
  ' AddNewRow Macro
  '
  
  '
      Rows("37:37").Select
      ActiveSheet.Unprotect
      Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
      Range("F36").Select
      Selection.AutoFill Destination:=Range("F36:F37"), Type:=xlFillDefault
      Range("F36:F37").Select
      ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
          , AllowFormattingCells:=True, AllowDeletingRows:=True, AllowSorting:=True _
          , AllowFiltering:=True
  End Sub
  </code></pre>