Sub findbottom()
ActiveSheet.Cells(Rows.Count, ActiveCell.Column).End(xlUp) _
.Offset(1, 0).Select
End Sub

Looks from the bottom up in the activecell column, anf ignores blank cells in
the column.


Gord Dibben MS Excel MVP

On Mon, 14 Jan 2008 02:30:04 -0800, DarkNight
wrote:

hello i'm stuck i need some help on selecting the last cell ( 1st blank one
available ) in a large list, there will be no gaps in the list at all. so far
using VBA i've been able to select and sort my list using CurrentRegion,
would like the curser to return to the end of the list so i can enter more
data as and when required.
i know i will be kicking my self as its bound to be something i'm overlooking.

any help would be appreciated

Regards DarkNight