Boa tarde Amigos!

Por favor,
Poderia me ajudar, com este código.

Não estou conseguindo achar o erro para que não localize a informação.

abs

Sub Filtrar()
Application.ScreenUpdating = False '"Trava" sua sessão do Excel


'Buscar Fornecedor
Dim ttProc, C As Long
C = 5
Do While Cells(C, "A") <> ""
    ttProc = Application.Match(Trim(Cells(C, "K")), Sheets("Fornecedor").Range(Trim("A1:A50000")), 0)
    If IsError(ttProc) Then
        Cells(C, "M").Value = "Sem Cadastro"

            Else
        Cells(C, "M").Value = Sheets("Fornecedor").Cells(ttProc, "B")
    End If
C = C + 1
Loop

Application.ScreenUpdating = True '"Destrava" sua sessão no Excel
End Sub