Finding Last Row of Data in a Table

Untested

 LR = Range("A:A").Find("*", , , , xlByRows, xlPrevious).Row
  lastrow = Range("A" & Rows.Count).End(xlUp).Row
  Range(Cells(LR + 1, 1), Cells(lastrow, 1)).Delete