Pegar agregando N filas

Suponiendo tus datos en A1:A200

(En un módulo ordinario)
Sub pega()
Dim fila&, filaD&
For fila = 2 To 200 Step 2
Sheets("Hoja2").Cells(fila / 2 * 5 - 4, 1).Value _
= Sheets("Hoja1").Cells(fila - 1, 1).Value
Sheets("Hoja2").Cells(fila / 2 * 5 - 3, 1).Value _
= Sheets("Hoja1").Cells(fila, 1).Value
Next fila
End Sub

Nota: Son 7 filas de código (el guión bajo indica que la fila continúa).

Saludos: Antonio.
**************************

"Esloque" escribió en el mensaje
news:

Buenas amigos, mi consulta es la siguiente, si tengo datos en una
columna en la hoja 1y quiero pegar esos datos en hoja 2 pero que salte
ciertas filas, se puede hacer?

Ej.: hoja 1, columna A
20
21
22
23
hoja 2, columna A

20
21
(inserte o deje vacia 3 filas)
22
23
hasta 1000..

Agradezco de antemano, saludando al excelente grupo.

Hola Esloque:

Otra forma de enfocar el asunto distinta a la solución aportada por AnSanVal

Generalizando...

Dar a las variables el valor oportuno en cada caso:
f_ini_O = fila de la hoja origen en la queremos empezar el copiado
f_ini_D = fila de la hoja destino en la queremos empezar a copiar
f_rell = cuantas filas seguidas queremos copiar
f_vac = cuantas filas queremos saltarnos en la hoja destino
Redimensionar el bucle For filap (en vez de 1 a 1000) según las filas que
queramos copiar

Sub pegar_c_hue()
Dim fila&, f_ini_O&, f_ini_D, f_rell&, f_vac&, filap&
f_ini_O = 1: f_ini_D = 1: f_rell = 2: f_vac = 3
Sheets("Hoja2").Columns(1).Clear
For filap = 1 To 1000
For fila = 1 To f_rell
Sheets("Hoja2").Cells(f_ini_D - 1 + (f_rell + f_vac) * (filap - 1)
+ fila, 1).Value _
= Sheets("Hoja1").Cells(f_ini_O - 1 + f_rell * (filap - 1) + fila,
1).Value
Next fila
Next filap
End Sub


Saludos.-

"Esloque" escribió en el mensaje de noticias
news:

Buenas amigos, mi consulta es la siguiente, si tengo datos en una
columna en la hoja 1y quiero pegar esos datos en hoja 2 pero que salte
ciertas filas, se puede hacer?

Ej.: hoja 1, columna A
20
21
22
23
hoja 2, columna A

20
21
(inserte o deje vacia 3 filas)
22
23
hasta 1000..

Agradezco de antemano, saludando al excelente grupo.