Copying cells to another worksheet

[Paulo H]

Hi I am copying cells to another workseet which works fine

However this only copies in consecutive columns

How do I get it to miss a column then copy to next

code line is

Dim rngToCopy As Range: Set rngToCopy = wsMain.Range("B2,B3,D17,B8,B17,B1,C1,B12,B13,B14,H1,H3")

eg B2 copies to Column A
B3 to Column B
I would then like D17 to copy to Column D
In the line above how do I put a space between B3 and D17?

Its got me stuck

Cheers

 

[Lian]

how about union(rng, rng1,rng2)