Copiar y pegar datos de una hoja a otra, dejando columnas y filas vacías, alternadamente en vba

Quiero copiar datos de la hoja 1 a la hoja 2, pero alternando las columnas ósea los datos De la columna A de la hoja1, pegar a la columna A de la. Hoja2, los datos de la columna B de la hoja1 a la columna C de la hoja2, la columna C de la hoja1 a la columna E de la hoja2 y la columna D de la hoja1 a la columna G de la hoja2 y alternar también las filas, la fila 11 de la hoja1 a la fila 13 de la. Hoja 2, y así hasta que se acaben los datos, no tengo un rango definido