Bom dia a todos,

Estou iniciando em VBA e preciso de uma ajuda.
Possuo uma planilha com muitos registros. São registros de processos. Quero recuperar as informações da planilha por meio de alguns critérios.
Pesquisando encontrei o código abaixo. Mas não entendo por que ele não me traz todas as ocorrências da chave de busca, como por exemplo na consulta por palavra chave. Ele recupera apenas informações do primeiro ano que é 2005. Eu tenho registros de 2005 a 2013. Alguém pode dar uma luz?
Segue o código para análise:

Private Sub BtExecutar_Click()

Dim lin As Integer
Dim linha As Integer

Sheets("rel").Range("A7:L50000").ClearContents
lin = 7
linha = 7

Do Until Sheets("base").Cells(lin, 1) = ""
If Sheets("base").Cells(lin, 3) Like "*" & UCase(Numero_Processo) & "*" And _
Sheets("base").Cells(lin, 7) Like "*" & UCase(Palavra_Chave) & "*" And _
Sheets("base").Cells(lin, 6) Like "*" & UCase(Interessado) & "*" Then

Sheets("rel").Cells(linha, 1) = Sheets("base").Cells(lin, 1)
Sheets("rel").Cells(linha, 2) = Sheets("base").Cells(lin, 2)
Sheets("rel").Cells(linha, 3) = Sheets("base").Cells(lin, 3)
Sheets("rel").Cells(linha, 4) = Sheets("base").Cells(lin, 4)
Sheets("rel").Cells(linha, 5) = Sheets("base").Cells(lin, 5)
Sheets("rel").Cells(linha, 6) = Sheets("base").Cells(lin, 6)
Sheets("rel").Cells(linha, 7) = Sheets("base").Cells(lin, 7)
Sheets("rel").Cells(linha, 8) = Sheets("base").Cells(lin, 8)
Sheets("rel").Cells(linha, 9) = Sheets("base").Cells(lin, 9)
Sheets("rel").Cells(linha, 10) = Sheets("base").Cells(lin, 10)
Sheets("rel").Cells(linha, 11) = Sheets("base").Cells(lin, 11)
Sheets("rel").Cells(linha, 12) = Sheets("base").Cells(lin, 12)

linha = linha + 1
End If
lin = lin + 1

Loop
End Sub

Desde já agradeço!