|
Servido Caballero.
Sub duplicafiladeceldaactiva()
Application.ScreenUpdating = False
Rows(ActiveCell.Row).Select
Selection.Copy
ActiveCell.Offset(1, 0).Select
Selection.Insert Shift:=xlDown
Application.CutCopyMode = False
ActiveCell.Offset(-1, 0).Select
End Sub
|