Insert New Row After Last Row in Worksheet and Copy Format and Formula from Cell Above
<p>I'm looking for a VBA Macro script that will locate the last row in a worksheet and then insert a new row below it, copying only the format and formula from the row above without the text. I've been able to get so far as locating the last row and copying the entire cell above, text included, but have not been able to figure out the last part of not carrying over the text. </p>

<p>I'm wondering if there isn't some way to macro the process of creating the new row at the end of the sheet and then recreating the formula in that row?</p>

<p>Any help is greatly appreciated!</p>

<p>This is what I have so far that works:</p>

<pre><code>Sub New_Formatted_Row_With_Formula

 'Locates Last Cell
  Cells(Rows.Count, 1).End(xlUp).Offset(1,0).Select
 'Inserts Row Below
  Rows(Selection.Row).Insert shift:=xlDown

End Sub
</code></pre>