Will this work for you?

Sub LastBorder()
Dim myCell As String
Range("B:B").Select '<===You can change this to whatever range you
want
For Each cell In Selection
If cell.Borders(xlEdgeBottom).LineStyle = xlNone Then
GoTo fin
End If
myCell = cell.Address
Next cell
fin:
If myCell < "" Then
Range(myCell).Select
Else
Range("B1").Select
End If
End Sub


--
Ikaabod
------------------------------------------------------------------------
Ikaabod's Profile: http://www.excelforum.com/member.php...o&userid=33371
View this thread: http://www.excelforum.com/showthread...hreadid=545352