Insert Line en between

  • Thread starter Thread starter Fernando Gomez
  • Start date Start date
F

Fernando Gomez

I have a list of about 5500 names and I need to insert 5 blank lines for
every customer, could somebody help me with this macro.

Fernando Gomez
 
I posted a possible to this twice yesterday. Homework? <G>

try this where you have 400 items in col D
Sub insert1row()
For i = 400 To 2 Step -1
Cells(i, "d").Rows.Insert
Next i
End Sub

Here is one I posted just today to insert 10 rows.

You might like this. The 3 is d3 and the 2 is d2 since you dont want 10 rows
before 1.

Sub insert10rows()
For i = 300 To 2 Step -1
Cells(i, "d").Resize(10, 1).EntireRow.Insert
Next i
End Sub
 
Back
Top