try this
Sub reset()
Dim Lrow As Long
lastrow = Range("C" & Rows.Count).End(xlUp).Row
Range("a3:d" & lastrow).Clear
Range("c2:d2").Clear
End Sub
Sub applyformula()
Dim Lrow As Long
lastrow = Range("C" & Rows.Count).End(xlUp).Row
Range("A2:B" & lastrow).FillDown
End Sub
On Fri, Apr 26, 2
Thank you for the tip. Moving to cell A3 works, except when my only data
is in C3 & D3. My goal is to reset the worksheet without the users losing
the formulas.
On Wednesday, April 24, 2013 8:10:58 PM UTC-4, David H wrote:
>
>
>
> I am using an excel spreadsheet in conjunction with Loftware. wh
