Insert a line in Excel using a Macro

[cb38]

I have an Excel spreadsheet where all data resides in column A.

Cell A1 is blank and the data follows after that. I need to insert a line after each line with the ChangeType: add. How can I do this with macro?


dn: CN=
changetype: add
title:
telephoneNumber :
displayName:
mail:

dn: CN=
changetype: add
title:
telephoneNumber :
displayName:
mail:

[if1467]

I have an Excel spreadsheet where all data resides in column A.

Cell A1 is blank and the data follows after that. I need to insert a line after each line with the ChangeType: add. How can I do this with macro?


dn: CN=
changetype: add
title:
telephoneNumber :
displayName:
mail:

dn: CN=
changetype: add
title:
telephoneNumber :
displayName:
mail:

Try this:

Sub Insert_Row()

Dim rownum As Integer
Dim Currcell As Range

rownum = 4
Set Currcell = ActiveSheet.Cells(rownum, 1)
Do While Currcell <> ""
    Currcell.insert Shift:=xlDown
    rownum = rownum + 8
    Set Currcell = ActiveSheet.Cells(rownum, 1)
Loop
End Sub