Add a new row based on criteria

[parkroyalduo]

Hi,

I have a sheet of around 450 rows, I would like a macro to do some manual work for me.

Is it possible for a macro to insert one blank row if a "No" is present in column T. If possible I would like the row to be inserted above the “No”.

Thanks

 

[dispelthemyth]

try the below

Sub InsertRow()




ilastrow = Cells(Rows.Count, "T").End(xlUp).Row
Range("T" & ilastrow).Select


Do Until ActiveCell.Row = 1


If .UCase(ActiveCell.Value) = "NO" Then
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
ActiveCell.Offset(-1, 0).Select


Else
ActiveCell.Offset(-1,0).Select
End If


Loop




End Sub