Looking for a macro

[drozbravo]

Hey guys,

I have no clue on how to run or make a macro. What I have is a roughly 287 page mailing list. Each address is 4 rows long. I am looking for a way to insert an empty row at every fourth row. I assume that macros would be the best way to do this rather than inserting one in sine my last row is 14988. Any help on this would be appreciated. I looked and found ways to insert rows and copy formulas or inserting them at every row with data, but I need something tailored to every fourth row insertion. I tried using one and adapting it to my needs but since I don't know anything about coding, I found myself not where I needed to be and nothing would happen. I need to be able to start it at a specific point also so I dont go over what I have manually done up to this point.


Thanks in advance

 

[Fr33dan]

What is the row number of the last blank you put in manually?

 

[drozbravo]

1720

 

[Fr33dan]

Does the data start in column A or some other column?

 

[drozbravo]

the data does start in column a and finishes in col e

 

[Fr33dan]

So your code looks like this right now and it's not working:?

Sub insertLines()
    Application.ScreenUpdating = False
    i = 1720
    While (Not Cells(i + 5, 1) = "")
        i = i + 5
        Rows(i).Insert Shift:=xlDown
    Wend
End Sub

 

[drozbravo]

with the exception of changing the line start to 2361, yes. and that time it worked. Thanks man. Nothing changed but it finally worked.

 

[drozbravo]

well as I was looking down the information, the macro stopped running at some point.