Sub LastRow()
'By going to the last row  in Excel and then moving up (like Control-UpArrow in
Excel), you will find  the data you are looking for
YourValue = Range("A65536").End(xlUp).Value
Message = MsgBox("The data in the last row is: " & YourValue)
End Sub

With the new excel  2007 coming out with its 1 million rows, it is best
not to identify a starting cell  range in the search. It is better to use
the following line of code when searching a column  for the last cell.



Value = Cells(Rows.Count, "A").End(xlup).Row



Change "A" to whatever column you are using.

I Hope this is what you were looking for

ActiveSheet.Columns("A").SpecialCells(xlLastCell).Select
MsgBox ActiveCell.Value

thank you, this is i expect................