Bom dia!!
Eu não entendi muito sua questão
No seu ficheiro não consigo editar depois de executar a macro.
Copie o código e passe ao seu arquivo!
Tente assim também
Neste caso é executado por um Botão, mas terá que selecionar antes a linha (local), em que vai inserir a linha.
Option Explicit
Sub InserirAleVBA()
Dim Rw As Long
With Selection
Rw = .Row
.EntireRow.Copy
.Insert Shift:=xlDown
On Error Resume Next
Cells(Rw + 1, 1).EntireRow.SpecialCells(xlCellTypeConstants).ClearContents
On Error GoTo 0
End With
End Sub
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Postado : 27/12/2012 8:56 am