Converting range into a table ...

[adambc]

I am using ...

ActiveSheet.ListObjects.Add(xlSrcRange, Range([A2].End(xlDown), [A2].End(xlToRight)), , xlYes).Name = "NewTable"

... to convert the range A2the last column/row in the range) to a table ...

The problem is that there are blanks in column A, which means that the NewTable is only down to the row before the first blank!

Is there a way round this?

Thanks ...

 

[Jeffrey Mahoney]

Please try:

ActiveSheet.ListObjects.Add(xlSrcRange, Range([A2].Offset(100000, 0).End(xlUp), [A2].End(xlToRight)), , xlYes).Name = "NewTable"

 

[adambc]

Please try:

ActiveSheet.ListObjects.Add(xlSrcRange, Range([A2].Offset(100000, 0).End(xlUp), [A2].End(xlToRight)), , xlYes).Name = "NewTable"

Perfect, many thanks ...