used row count in worksheets to populate TOC

I'd have to see your table of contents to understand how to append the data, but you can determine the rows used by:

LastRow = Cells.Find("*",SearchOrder:=xlByRows,SearchDirection:=xlPrevious).Row

or

LastRow = ActiveSheet.UsedRange.Rows.Count