Here are also 2 very nice functions:
Function LASTINROW(rng As Range)
Set LastCell = rng.Parent.Cells(rng.Row, Columns.Count).End(xlToLeft)
LASTINROW = LastCell.Value
If IsEmpty(LastCell) Then LASTINROW = ""
If rng.Parent.Cells(rng.Row, Columns.Count) < "" Then _
LASTINROW = rng.Parent.Cells(rng.Row, Columns.Count)
End Function

Function LASTINCOLUMN(rng As Range)
Set LastCell = rng.Parent.Cells(Rows.Count, rng.Column) _
.End(xlUp)
LASTINCOLUMN = LastCell.Value
If IsEmpty(LastCell) Then LASTINCOLUMN = ""
If rng.Parent.Cells(Rows.Count, rng.Column) < "" Then _
LASTINCOLUMN = rng.Parent.Cells(Rows.Count, rng.Column)
End Function

"Diana" wrote in message
...
I have a table in excel and I need to write a VB
procedure to check which row is the end one. Any
suggestions. I appreciate your help.
Diana