vba for last row in table

[dpaton05]

What is the vba for the last row in a table that has things below it so I can't use the xlup?

 

[James Lever]

Hi,

This should get you started.

Public Sub MyEndRow()


Dim c As Range


Set c = Range("A1").CurrentRegion


MsgBox (c.Rows.Count + c.Rows.Row - 1)


'#### Remove the -1 if you want the first blank line after the table ###




End Sub

 

[Fluff]

Maybe

LastRow=split(sheet9.ListObjects("Accounts").databodyrange.Address,"$")(4)