Sub Demo()
Dim i As Long, StrTxt As String
With ActiveDocument.Tables(1)
  For i = .Rows.Count To 1 Step -1
    If InStr(.Cell(i, 2).Range.Text, "Ensure S") = 1 Then
      StrTxt = Split(.Cell(i, 2).Range.Text, " ")(1)
      .Rows.Add BeforeRow:=.Rows(i)
      With .Rows(i)
        .Cells.Merge
        .Shading.BackgroundPatternColor = -603930625
        .Range.Style = wdStyleNormal
        .Range.Text = "Step " & StrTxt
      End With
    End If
  Next
End With
End Sub