Pegar datos en filas intercaladas

[lokotez]

Buenas noches colegas!
Estoy tratando de pegar datos en celdas intercaladas, sin embargo, mis intentos no han sido exitosos, espero puedan darme una mano para ver si esto es posible.
La meta es...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Gabriel Raigosa]

Hola,

Una cosa tengo clara, macros son macros, y puede ser que no nos sirva algo diferente, sin embargo no pasa nada por preguntar,

¿Por casualidad tiene Excel 365 y le sirven funciones?

 

[FGV]

Hola @lokotez (y Gabriel),
Mira si te sirve el adjunto. Un saludo, Fernando

 

[Macro Antonio]

Aplicado a tu ejemplo:

Sub intento()
   Application.ScreenUpdating = False
   For x = 2 To 6 Step 2
     Range("B" & x).Resize(1, 5).Copy Range("B" & x + 9)
     Range("H" & x).Resize(1...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[FGV]

Aplicado a tu ejemplo:

Sub intento()
   Application.ScreenUpdating = False
   For x = 2 To 6 Step 2
     Range("B" & x).Resize(1...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[lokotez]

Muchas gracias a @FGV @Macro Antonio y a @Gabriel Raigosa por su atención y amables respuestas, todas fueron de ayuda.

Me parece...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí