Finding Last Row of Data in a Table

[snapfade]

My table has 182 rows and formulas in many columns but Column A is the key. It has data down to only row 18. I want to delete all rows of the table beneath the last row where column A has data. That is, I want to delete table rows 19 through 182.

When I use the...

lastrow = Range("A" & rows.Count).End(xlUp).row

it yields 182, not 18. How can I modify this code to get the right answer?

Thanks!