Amending code to go to last row of a table

[STEVENS3010]

Hi all,

I have used the macro recorder to apply a table to some information in a sheet. At present it is using a specific range; could anybody help me amend the code to go to the last row instead as the data will not be the same number of rows every time? The current code from the recorder is...

    ActiveSheet.ListObjects.Add(xlSrcRange, Range("$A$6:$F$20"), , xlYes).Name = _
        "Table3"
    Range("Table3[#All]").Select
    ActiveSheet.ListObjects("Table3").TableStyle = "TableStyleLight19"
    Range("A7").Select

 

[MARK858]

You're welcome