insert multiple cells every ### rows

  • Thread starter Thread starter dgraves77
  • Start date Start date
D

dgraves77

How do I insert multiple rows between every row in a column? I have a
column with data and I want to insert 5 rows between each row.
 
Sub insertfiverows()
For i = Cells(rows.Count, "a").End(xlUp).Row To 2 Step -1
rows(i).Resize(5).Insert
Next i
End Sub
 
Sub InsrtRws() 'Inserts blank rows
lastRow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
For i = lastRow To 2 Step -1
x = Cells(i, 1).Value
If x > 0 Then
With ActiveSheet
.Range(.Cells(i, 1), .Cells(i + 4, 1)).EntireRow.Insert
End With
End If
Next
End Sub
 
Back
Top