I need Range("B:B") to change to Range("D:D"), Range("F:F"), and so.
I need the "Next_line" to be 2 when the next column is selected.


Next_Line = Application.CountA(Range("b:b"), NumColumns)

I want to do:
Next_Col = 0

' Then when the next column comes:

Next_Col = Next_Col + 2
Next_Line = Application.CountA(Range("Next_Col:Next_Col"),
NumColumns)

How do I do this?

Jose