¿Cómo omitir el error 91 en una búsqueda dentro de una macro?

Te anexo la macro actualizada

Sub prb()
    Range("A1").Select
    For i = 1 To 18
        Set b = Cells.Find(What:=" E CV", After:=ActiveCell, LookIn:=xlFormulas, _
            LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
            MatchCase:=False, SearchFormat:=False)
        If Not b Is Nothing Then
            b.Activate
            ActiveCell.Offset(-1, 0).Range("A1").Activate
            ActiveCell.Offset(-8, 0).Range("A1:A9").Select
            Application.CutCopyMode = False
            Selection.EntireRow.Delete
            ActiveCell.Offset(0, 0).Range("A1").Select
            Selection.Copy
            ActiveCell.Offset(0, 2).Range("A1").Select
            ActiveSheet.Paste
            ActiveCell.Range("A1:B1").Select
            Selection.Replace What:=" E CV", Replacement:="", LookAt:=xlPart, _
            SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
            ReplaceFormat:=False
            Application.CutCopyMode = False
            Selection.Copy
            ActiveCell.Offset(0, -2).Range("A1").Select
            ActiveSheet.Paste
            ActiveSheet.Paste
            Application.CutCopyMode = False
            ActiveCell.Offset(0, 2).Range("A1").Select
            Selection.ClearContents
            ActiveCell.Offset(0, -2).Range("A1").Select
        Else
            Exit For
        End If
    Next
    Range("A1").Select
End Sub

'.[Sal u dos. Dante Amor. No olvides valorar la respuesta. 
'.[Avísame cualquier duda

Prueba esta macro primero busca y elimina los E CV de la columna A y luego elimina las nueve filas superiores, una vez que acaba se posiciona el la celda a1

Sub copiar()
Range("a:a").Replace What:=" E CV", Replacement:=""
On Error Resume Next
Range("a1:a9").EntireRow.Delete
On Error GoTo 0
Range("a1").Select
End Sub

Son muy comunes los errores en VBA, te recomiendo uses este código:

Sub MiMacro()
'Usa este codigo Para saltar errores y que se siga ejecutando el código.
On Error Resume Next
'AQUI VA TU CODIGO!!!
End Sub