copy every 12 cells skip a cell (column) and copy

Hello. I want to copy cells from row 1 (starting in A1) into row 2 (starting in B2) but I want to copy every 10 cells from row 1 and then skip a cell in row 1 and copy 12 cells, skip 1, copy 12, and so on. How can I write vba code!!