Insert table function when range changes

[butters149]

Hello,

I am trying to use the insert table function, but problem is the active range changes all the time. Below is my current macro for this. Is there a way to perform the insert table function with changing ranges?

Range("A1").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
ActiveSheet.ListObjects.Add(xlSrcRange, Range("$A$1:$AE$229"), , xlYes).Name = _
"Table1"
Range("A1:AE229").Select

 

[Fluff]

Try

ActiveSheet.ListObjects.Add(xlSrcRange, Range("A1").CurrentRegion, , xlYes).name = "Table1"

 

[butters149]

Thank-you! it works!

 

[Fluff]

You're welcome