Macro: find next free row and copy - help!

[channelcapital]

I have a spreadsheet containing rows of values but the last row is a row of formulas.
I am trying to write a macro which finds the last row and then I want to copy the last row (containing formulas which I want to retain) in to the next row (which is empty) and then covert the row that was formulas to values.
Every time I use the macro I will of course be extended the data range by one.

Can anyone help please?

[mangesh_yadav]

something like this probably:

Sub Button1_Click()

myRow = Worksheets("Sheet1").Range("A65536").End(xlUp).Row
Range(myRow & ":" & myRow).Copy
Range(myRow + 1 & ":" & myRow + 1).PasteSpecial
Range(myRow & ":" & myRow).Clear

End Sub


- Mangesh

[channelcapital]

Thanks Mangesh
Seems to have done the trick.