Insert New Row Above Text

[StudioLETA]

I would like to insert a new row above a cell that contains the text "Full Services" in column B. Here is my macro, however it is stuck in an infinite loop, and does not stop at just inserting a single row.

Sub PrelimInsert()
Dim c As Range
For Each c In Range("B:B")
If c.Value = "FULL SERVICES" Then c.Offset(-1, 0).EntireRow.Insert
End If
Next c

End Sub

[JOHN H. DAVIS]

You should loop from the bottom up when inserting rows. Try:

Please Login or Register  to view this content.

[StudioLETA]

Works perfect, thank you!

Additional question, at Rows(i).Insert, is it possible to add

Rows(i).Offset(#,0).Insert

where # equals the value of a cell, such as O2 for example. Would that be the indirect function?

[JOHN H. DAVIS]

I don't understand. You want to insert a row with a cell value?

[StudioLETA]

No, Im sure I described it wrong, I would like to have the location of the new inserted row to be dependent on the value of a specific cell. Such as if the cell = 2, then the new row will be inserted two rows before "Full Services" Cell. If the value is 3, then it would be 3 rows before, and so on.

[JOHN H. DAVIS]

Try:

Please Login or Register  to view this content.