Hola! Timoteo (y elunico). Un método que suele ser eficiente es el siguiente:
Código PHP:
Sub Agregar_Linea_2()
Application.ScreenUpdating = False
With Range("a1", [a1].End(xlDown))
.EntireColumn.Insert
With .Offset(, -1)
.Formula = "=row()"
.Value = .Value
.Offset(.Count) = "=0.5 + " & .Cells(1).Address(0, 0)
.Offset(.Count).Value = .Offset(.Cells.Count).Value
With .Resize(2 * .Count).EntireRow
.EntireColumn.Sort key1:=.Cells(1), order1:=xlAscending, Header:=xlYes
End With
.EntireColumn.Delete
End With
End With
Application.ScreenUpdating = True
End Sub
¡Espero te sea de utilidad!
Saludos, Cacho R.