copiar automaticamente

"jose miguel ramirez" escribió...

Amigos no se nada de macros pero grave esto que es para que copie unas

filas

(56:57) en ditintas posiciones , pero no se como decirle que las copie en

la

posicion activa que le voy a ir dando.
Gracias


Rows("56:57").Select
Selection.Copy
ActiveSheet.ActiveCell
Selection.Insert Shift:=xlDown
Range("B65").Select
End Sub

saludos
jm

Rows("56:57").Select <=Esto selecciona las filas 56 y 57
a partir de ahí la macro copia lo que haya seleccionado etc, etc
de modo que quitando la primera fila, la macro actuará sobre las celdas que
estén seleccionadas.

Es decir, antes debes seleccionar las filas, con el ratón las que tu quieras
y después
ejecutas la macro.

Lo que no veo muy claro es el destino. ¿Donde lo quieres copiar?
¿Un número de filas fijo después de las seleccionadas? ¿Siempre en el mismo
sitio?

Si lo dejas tal y como está siempre lo copiará a partir de la celda B65