Formula (Array - Ctrl-Shift-Enter

= ADDRESS(ROW(OFFSET( $A$1,COUNTA($A$1:$A$65000),0)),COLUMN(OFFSET(
$A$1,COUNTA( $A$1:$A$65000),0)))

or
Macro:

Sub NextBlankDown()
Range("a1").Activate
If ActiveCell.End(xlDown).Row = Rows.Count Then Exit Sub
MsgBox (ActiveCell.End(xlDown).Offset(1, 0).Address)
End Sub

Don Pistulka

"Mike" wrote in message
om...
Hi
iam new to Visual Basic. I have a macro that performs some
calculations and outputs the results into excel 2000.
how do i make visual basic put the results in the next unused row
whenever the macro is run.
please post any links if this might have been explained before.

Thanks

Mike