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.