Use VBA to Select non contagious Columns

  • I have been trying to work out how to select columns when I do not at the outset know how many , so I cannot hard code as I need to select the columns on the fly. I have devised a very clumsy way of doing this as shown in the example code below. It is only set to 2 or 3 possibilities, I could simply extend rows in increasing size for the union function thats where the clumsy part comes in.

    Thanks for any suggestions