Dynamically Set Range in ListObjects(Excel Table)

[Vishal Gaikwad]

Sub DynamicTable()
Dim Lastrow as Long
Set Dtbl=Sheets(Activesheet.Name)

Lastrow=Range("F2").End(XlDown).Row

Dtbl.ListObjects.Add(XlSrcRange,Range("A1:F" & LastRow), , XlYes).Name="Data"
End Sub

 

[My Aswer Is This]

Is there a question here?

Sub DynamicTable()
Dim Lastrow as Long
Set Dtbl=Sheets(Activesheet.Name)

Lastrow=Range("F2").End(XlDown).Row

Dtbl.ListObjects.Add(XlSrcRange,Range("A1:F" & LastRow), , XlYes).Name="Data"
End Sub

 

[DanteAmor]

Sub DynamicTable()
Dim Lastrow as Long
Set Dtbl=Sheets(Activesheet.Name)

Lastrow=Range("F2").End(XlDown).Row

Dtbl.ListObjects.Add(XlSrcRange,Range("A1:F" & LastRow), , XlYes).Name="Data"
End Sub

Something like this:

Sub DynamicTable2()
    Dim sh As Worksheet
    Dim Dtbl As ListObject
    
    Set sh = ActiveSheet
    Set Dtbl = sh.ListObjects.Add(xlSrcRange, sh.Range("A1").CurrentRegion, , xlYes)
    Dtbl.Name = "Data"
End Sub

 

[Jon Peltier]

Sub DynamicTable()
Dim Lastrow as Long
Set Dtbl=Sheets(Activesheet.Name)

Lastrow=Range("F2").End(XlDown).Row

Dtbl.ListObjects.Add(XlSrcRange,Range("A1:F" & LastRow), , XlYes).Name="Data"
End Sub

I like using CurrentRegion instead of End(xlWhatever):

Dtbl.ListObjects.Add(XlSrcRange,Range("A1").CurrentRegion, , XlYes).Name="Data"