Macro Excel Ayuda

[eposse]

Hola amigos, les cuento quiero hacer una macro en excel, en donde me posicione en cualquier celda del excel(obvio que tendra un dato) y que la macro tome lo que dice esa celda y la copie 15 veces para abajo y luego el cursor me quede posicionado 5 celdas mas abajo de donde copio el ultimo dato.

espero me entiendan gracias.

Intentalo con esto. la clave creo que es utilizar el resize y offset:

(supongo que en a1 tienes por ejemplo el valor 1):

Sub macro()





Cells(1, 1).Copy Destination:=Range("A2:A16") ' se copia el contenido de A1 en el rango de destino



Cells(1, 1).Select ' se selecciona de nuevo la celda con contenido

ActiveCell.Offset(0, 5).Select ' se desplaza cinco columnas a la derecha manteniendo la fila (te puedes ahorrar el 0, )

End Sub


Si el rango "a2:a16" necesitas hacerlo más flexible tanto en filas como en columnas se puede hacer. continua con este correo o abre un nuevo tema si lo necesitas,

Un saludo y espero que te haya ayudado