Insert Row If Cell = False

[Cullen]

Hey everyone,

Its been a long time since I've worked in VBA and need a starting point. I need a macro to work down a column and insert a row every time a cell has FALSE in it. The other cells will have TRUE.

After each row is inserted I the need to put a formula into the A column of each new row that equals a cell in the row below in column E.

Any help is appreciated!

Cullen

 

[Cullen]

Figured it out.

Sub insertr()
Dim i As Integer

i = 4
While Cells(i, 4) <> ""
If Cells(i, 4) = "False" Then
Rows(i).EntireRow.Insert
Cells(i, 1).FormulaR1C1 = "=R[1]C[4]"
i = i + 1
End If
i = i + 1
Wend

End Sub