Copy alternate Column Data

Hello:

I need a VB Macro to copy and certain data from Sheet2 to Sheet1

Copy O610:O625 from Sheet2 to Sheet1 at D1
Copy Q610:Q625 from Sheet2 to Sheet1 at E1
Copy S610:S625 from Sheet2 to Sheet1 at F1
Copy Q610:Q625 from Sheet2 to Sheet1 at G1

and so on...last column would be EG610:EG625

As you can see i need to copy alternate column data.

Please help and let me know if any questions.

Thank you

Riz Momin