Macro Excel Ayuda

[juan_miguel]

Hola win14,

Para lograr que funcione como quieres debes implementar un sub Worksheet_SelectionChange en la hoja que quieres que funcione de esa manera,
te coloco el código que construí para ello, a mi me funciona bien...

Public ok
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If ok = Empty Then
fila = ActiveCell.Row
columna = ActiveCell.Column
Selection.Copy
ok = 1
Range(Cells(fila, columna), Cells(fila + 15, columna)).Select
End If
If ok = 1 Then
ActiveSheet.Paste
ok = 2
Selection.End(xlDown).Select
End If
If ok = 2 Then
ok = 3
ActiveCell.Offset(5, 0).Select
End If
If ok = 3 Then
ok = 4
ActiveSheet.Paste
Application.CutCopyMode = False
End If
If ok = 4 Then
End
End If
End Sub

La variable ok lo unico que hace es bloquear el paso a que se ejecuten algunas líneas de código que en cierto momento ya no son necesarias que se ejecuten, puesto que cada vez que cambies de celda en la hoja donde se encuentre este procedimiento, dicho procedimiento se ejecutará nuevamente, ese es el porque de la variable ok.

Espero esto sea lo que necesitas, aunque quizas necesites hacerle algunas modificaciones adicionales para que funcione como lo quieres,
por ejemplo, debes evitar que se ejecute el procedimiento si la celda en donde te paras esta vacia.

Un saludo!!

Juan Miguel