Last row on every page

Dear Sir,

How to findout LastRow on every page in sheet.

http://www.vbaexpress.com/forum/showthread.php?t=13260

Actually I want to apply following border to lastrow of every sheet page

 With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With

Please help