insertas filas

Estimados tengo esta macro obtendida del foro Sub NuevaFila() ActiveCell.EntireRow.Select Selection.Copy Selection.Insert Shift:=xlDown Application.CutCopyMode = False Selection.ClearContents ActiveCell.Select End Sub la cual copia la celda con ...