Inserting a Table Using LastRow

[Guzzlr]

Hello,
I'm trying to Insert a Table using LastRow, instead of just using Row 5,000.

For LastRow (which is working) I have:

LastRow = Range("I:I").Cells.Find("*", _
        SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
        MsgBox "The Last Non-Blank Row Is " & LastRow

For Inserting my Table (which is not working) I have:

ActiveSheet.ListObjects.Add(xlSrcRange, Range("$A$1" & LastRow), , xlYes).Name = _
"Table1"
Range("Table1[#All]").Select
/CODE]

How am I using LastRow wrong?
Thanks for the help

 

[Fluff]

Try

ActiveSheet.ListObjects.Add(xlSrcRange, Range("$A$1:A" & LastRow), , xlYes).Name = "Table1"