I need help to change a Do While Not Loop

[Andries]

Hi

I
I am currently using this code but I need to change it but I don't know how..I am a beginner at this. I don't want to insert the entire row but only range "A:I"


"Do While Not IsEmpty(cell.Value)
If cell.Value > 1 Then
Range(cell.Offset(1), cell.Offset(cell.Value - 1)).EntireRow.Insert
Range(cell, cell.Offset(cell.Value - 1, 1)).EntireRow.FillDown
End If
Set cell = cell.Offset(cell.Value)
Loop"

Thank you
Dries

 

[shg]

Set cell = Range("[COLOR=red]I1[/COLOR]")

 

[Andries]

thank you so much

 

[shg]

You're welcome, glad it worked for you.