Adding the table to used range

Sub AddTable()

ActiveSheet.ListObjects.Add(xlSrcRange,
ActiveSheet.UsedRange, , xlNo).Name = "Table1"
Range("Table1[[#All],[Column1]]").Select

End Sub