Include header when selecting a column range

[eblack93]

Hi,

I have the following code as I'm working on multiple selections:

With ActiveSheet.ListObjects("Main")
Union(.ListColumns(1).Range, _
.ListColumns(3).Range, _
.ListColumns(5).Range, _
.ListColumns(10).Range, _
.ListColumns(30).Range, _
.ListColumns(31).Range).Select

My problem is that only when I sort the table by one of the columns, the selection does not include the table headers for the corresponding columns listed above and only selects the content.

I want the selection to include the headers for those columns above but I have been unable to find a suitable solution online.

Thanks