Dim I as Integer, strValueToFind As String, lngRows As           Long, she As Worksheet
 Set an = ThisWorkbook.ActiveSheet
 LngRows = sh.Range(“A1048576”).End(xlUp).Row
 strValueToFind = “DCAP”
 For I = 1 To lngRows
    If InStr(Cells(I,1).Value, strValueToFind) = 0 Then
       If Cells(I,1).Value = “” Then
       Else
           Rows(I).Delete
            I = I-1
       End If
  End If
Next I