Thread: Inserting Rows (without using ActiveCell)

Here is what I am trying to accomplish.

1.Search in column G for cells containing the word "TASK", i.e. cell G8 and G18
2.Move up one cell, and left 5 cells.
3.If that cell contains the letters "PROJECT NO" then move 5 cells up from
the "TASK" cell. This puts you on Row 6 of the first of two examples.
4.Then insert one row here.
5.Later on I intend to move the range B4:C7 up one row.
6.Then I would repeat the steps above and find the next instance of "TASK",
i.e. cell G18.

However, when I get to step 4, I keep getting cells inserting up and up and up, indefinitely because this is within a loop. I'm not sure why this continues to loop. I want to insert only one row above the range B4:C7. I would like to try this without using ActiveCell.

Example:

Code:

Rows(4).Insert

This inserts a row between rows 3 and 4.