VBA Take all Cells from row until column 31, then loop to next row

Question

Trying to write a macro that takes cells from one row (incrementing the cell taken by 2 each time) then paste it into another spreadsheet until it hits column 33, then start