Hi Experts,

Need your help to get this working.
I'm using the below macro to copy formulas up to the last row.
However, it doesn't work when the worksheet have many rows of data (says
50,000 rows). It works fine for fewer rows.

Function last_row() As Integer

Row = 1
While Cells(Row, 1) < ""
Row = Row + 1
Wend

last_row = Row

End Function


Thanks in advance

--
Freddie