Macro de copia

OK. Aquí sigue una macro general que copiará cada N filas.
Como me faltó información sobre lo que quieres, hice algunas suposiciones:
- La cantidad de filas a "saltar" estará indicada en una celda a la cual tendrás que darle un nombre de rango: "salto"
EL valor en ella indicará cuantas celdashacia abajo deberá moverse en cada oportunidad.
Así si quieres copiar solo celdas impares, elegirás -como celda de inicio- una impar y pondrás el valor "2" en la celda "salto", así llegará a otra celda impar.
- El rango de donde tiene que copiar los datos, será determinado por una selección previa que hagas.
Es decir, pinta desde la primer fila a copiar hasta donde termina tu rango de datos. Déjalo seleccionado al disparar la macro.
Ah! Asumí que esta hoja se llama "Hoja1" (¡Qué imaginación la mía!)
- La hoja de destino recibe la copia después de la última celda ocupada en la columna A.
(Esta hoja se llama "Hoja2"
-Se copian filas "completas" de punta a punta.
...
Entonces, pega el siguiente código en un módulo nuevo de Visual basic:
Sub pegaNfilas()
Dim Range2luk As Range
Dim RangeOrig As Range
Dim nextNrow
Set RangeOrig = Selection
nextNrow = 0
Sheets("Hoja2").Select
LastCell = Application.WorksheetFunction.CountA(Range(Cells(1, 1), Cells(5000, 1)))
Sheets("Hoja1").Select
Do While Not Application.Intersect(RangeOrig, ActiveCell.Offset(nextNrow)) Is Nothing
Application.CutCopyMode = False
ActiveCell.Offset(nextNrow).EntireRow.Copy
Sheets("Hoja2").Select
ActiveSheet.Cells(LastCell + 1, 1).EntireRow.Select
ActiveSheet.Paste
Application.CutCopyMode = False
LastCell = LastCell + 1
nextNrow = nextNrow + Range("salto").Value
Sheets("Hoja1").Select
Loop
Sheets("Hoja2").Select
ActiveCell.Select
Sheets("Hoja1").Select
ActiveCell.Select
End Sub
Cierra el Editor de VBA. Y graba el archivo antes de probarlo (por las dudas, ¿vio?)
Luego selecciona el rango original a copiar y lanza: pegaNfilas
Funciona, hasta donde lo probé. Si hubiera alguna consideración que no me hiciste saber, coméntamela y modificamos el código.
Si estuviera OK, ya sabes qué hacer...
Un abrazo!
Fernando

Creo haber entendido bien, cambié rango por 2, me posecioné en la primera casilla (A1), seleccioné las filas y aparece el depurador:
"error en el método 'range' del objeto global" ¿Qué hice mal?,
PD: el "2" lo reemplacé con y sin "" por si las moscas, e igualmente aparece el mensaje