Help with Excel Visual Basic code

Hi,

Can anybody figure out the problem with this code? I am trying to use table formatting on a worksheet.
The code should figure out the range of data and then format to TableStyleLight8.  When I debug with my file the range seems to be finding the last column (O) but the table format is being applied and missing the last column.

Thanks

Dim LastRow As Long
    Dim LastCol As Long
    
    LastRow = Cells(Rows.Count, 1).End(xlUp).Row
    LastCol = Cells(LastRow, Columns.Count).End(xlToLeft).Column
    Range("A1" & ":" & Cells(LastRow, LastCol).Address).Select
    


    ActiveSheet.ListObjects.Add(xlSrcRange, Range("A1" & ":" & Cells(LastRow, LastCol).Address), , xlYes).Name = _
        "Table1"
    Range("Table1[#All]").Select
    ActiveSheet.ListObjects("Table1").TableStyle = "TableStyleLight8"

Select all Open in new window