add rows condition macro

[donniedorian]

Hello,

I want to add as many rows beween b1 and b2 as specified in c1 , and so on between b2 and b3 as many rows as the number in c2 , all the way down


[TABLE="width: 500"]
<tbody>[TR]
[TD]a[/TD]
[TD]b[/TD]
[TD]c[/TD]
[TD]d[/TD]
[TD]e[/TD]
[/TR]
[TR]
[TD]1[/TD]
[TD]fffff[/TD]
[TD]2[/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]2[/TD]
[TD]dddd[/TD]
[TD]3[/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]3[/TD]
[TD]eeee[/TD]
[TD]2[/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]4[/TD]
[TD]gggg[/TD]
[TD]3[/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]5[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]6[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
</tbody>[/TABLE]

 

[JoeMo]

Sub AddRows()
Dim i As Long
Application.ScreenUpdating = False
For i = Range("B1:B" & Cells(Rows.Count, "B").End(xlUp).Row).Rows.Count To 1 Step -1
    If Cells(i, "C").Value > 0 Then Cells(i, "C").Offset(1).Resize(Cells(i, "C").Value).EntireRow.Insert
Next i
Application.ScreenUpdating = True
End Sub

 

[donniedorian]

Works perfect,

Thank you very much