VBA code to insert blank row below if cell contains X or Y

[FROGGER24]

In column "C" if the cell value ="BTRF Contractor Drive Out "or "BTRF Cont Walk Out *" I need to add a blank row below current cell. Column C length is unknown.

Thanks

 

[Michael M]

MAybe this way...

Sub MM1()
Dim  r As Long
For r =Cells(Rows.Count, "C").End(xlUp).Row To 2 Step -1
    If Cells(r, 3) = "BTRF Cont Walk Out" Or Cells(r, 3) = "BTRF Contractor Drive Out" Then
        Cells(r + 1, 3).EntireRow.Insert
End If
Next r
End Sub

 

[FROGGER24]

MAybe this way...

Sub MM1()
Dim  r As Long
For r =Cells(Rows.Count, "C").End(xlUp).Row To 2 Step -1
    If Cells(r, 3) = "BTRF Cont Walk Out" Or Cells(r, 3) = "BTRF Contractor Drive Out" Then
        Cells(r + 1, 3).EntireRow.Insert
End If
Next r
End Sub

thanks Michael M, your code worked as requested.

 

[Michael M]

Glad to help...