Comando FOR para add em uma combobox

Duvida do usuário: Elton da coomunidade (Excel VBA)
_______________________________________________________
Pessoal to com uma dúvida no comando FOR, gostaria de fazer um laço de repetição para adiconar a um combobox1 todos os códigos (Coluna A da planilha) que possuem o texto "Pendente" (Colula L da planilha).

Este codigo abaixo funciona com o primeiro item só preciso colocar o laço.

Dim y as integer

Set proc = Sheets("chamados").Range("L:L").Find("Pendente")

If proc = "Pendente" Then

y = (proc.Offset(0, -11).Value)
combobox1.AddItem (y)

O For eu tentei desse jeito e não deu certo

Dim num as integer
Dim x as integer
Dim y as integer


x = Range("AZ1") 'O "AZ1" guarda sempre o ultimo codigo + 1
x = x - 1 ' Iguala ao ultimo codigo


For num = y To x

Set contato = Sheets("chamados").Range("L:L").Find("Pendente")

If proc = "Pendente" Then

y = (proc.Offset(0, -11).Value)
combobox1.AddItem (y)


End If


Next
___________________________________________
Resposta do membro:Val.

Te sugiro fazer o seguinte:
Sub teste()
Dim x, UltimaCelula As Long

'Encontra a última célula usada na coluna L
UltimaCelula = Cells(Rows.Count, "L").End(xlUp).Row

'Percorre todo o intervalo da coluna L verificando o valor de cada célula e _
copiando o valor (se atendidas as condições) da célula da mesma linha da coluna B
For x = 1 To UltimaCelula

If Sheets("chamados").Cells(x, "L").Value = "Pendente" Then
combobox1.AddItem Sheets("chamados").Cells(x, "B").Value
End If

Next x
End Sub 


Obs. esse blog/ funcionára assim da forma descrita acima, mas não iremos pegar dados das comunidades e sim postar as dúvidas diretamente aqui, pois assim quem não tem acesso ao orkut por questão de segurança ou restrição nas empresas, terá a chance de tirar suas dúvidas ou auxilar alguém que esteja com dúvida.