Simple VBA to add a row..

[Fefur1983]

I am trying to find a basic code to automatically insert a new row based on a cell value. I am using Excel 2010. To break it down further, here are the details.
If any cell in the range "W5" to "W50" contains either "SP" or "TS", i want to insert a new blank row directly below whichever row contains either of those 2 statements. If possible, i want the new blank row to maintain the same color, font, etc., formatting as the rest of the page.

 

[JoeMo]

Sub InsertRow()
Dim i As Long
Application.ScreenUpdating = False
With Range("W5:W50")
    For i = .Rows.Count To 1 Step -1
        If .Cells(i).Value = "SP" Or .Cells(i).Value = "TS" Then
            .Cells(i).Offset(1, 0).EntireRow.Insert
        End If
    Next i
End With
Application.ScreenUpdating = True
End Sub