Here is a subroutine that does it:
Sub OneColLastRow()

If Range("A" & Rows.Count).End(xlUp) = "" Then GoTo Finish

'give the last row
myrow = Range("A" & Rows.Count).End(xlUp).Row
Cells(myrow, "A").Select
Exit Sub

Finish:
MsgBox "No formulas or data found"
End Sub

This is adapted from http://vbaexpress.com/forum/showthread.php?t=9774

Need help with VBA? See David McRitchie's site on "getting started" with VBA

http://www.mvps.org/dmcritchie/excel/getstarted.htm

best wishes
--
Bernard V Liengme
www.stfx.ca/people/bliengme
remove caps from email

"playgolf" wrote in message
...

Here's a formula as you asked for one

=INDIRECT(ADDRESS(COUNTA(D4:D500)+3,4))

It assumes that you have headers in the first three rows and you want the
last value in column D

Regards

Peter

"Bernard Liengme" wrote:

Here is a subroutine that does it:
Sub OneColLastRow()

If Range("A" & Rows.Count).End(xlUp) = "" Then GoTo Finish

'give the last row
myrow = Range("A" & Rows.Count).End(xlUp).Row
Cells(myrow, "A").Select
Exit Sub

Finish:
MsgBox "No formulas or data found"
End Sub

This is adapted from http://vbaexpress.com/forum/showthread.php?t=9774

Need help with VBA? See David McRitchie's site on "getting started" with VBA

http://www.mvps.org/dmcritchie/excel/getstarted.htm

best wishes
--
Bernard V Liengme
www.stfx.ca/people/bliengme
remove caps from email

"playgolf" wrote in message
...