Felipe Monteiro

Boa noite, Estou com um problema na hora de preencher uma ListBox no VBA, quando ele começa a executar a função pesquisaCliente ele da um erro no Sheets("Pesquisa").Range("A2:K1000000").Clear, já testei em apagar essa linha e ele continua com o erro na linha abaixo. Sub pesquisaCliente() Dim n As Long n = 1 Sheets("Pesquisa").Range("A2:K1000000").Clear Sheets("RegServ").Select Sheets("RegServ").Range("D4").Select Do While ActiveCell <> "" If InStr(1, UCase(ActiveCell), UCase(txt_cpf)) > 0 Then Sheets("Pesquisa").Range("B" & n).Offset(1, -1).Value = ActiveCell.Offset(0, -1) Sheets("Pesquisa").Range("B" & n).Offset(1, 0).Value = ActiveCell.Offset(0, 0) Sheets("Pesquisa").Range("B" & n).Offset(1, 1).Value = ActiveCell.Offset(0, 1) Sheets("Pesquisa").Range("B" & n).Offset(1, 2).Value = ActiveCell.Offset(0, 2) Sheets("Pesquisa").Range("B" & n).Offset(1, 3).Value = ActiveCell.Offset(0, 3) Sheets("Pesquisa").Range("B" & n).Offset(1, 4).Value = ActiveCell.Offset(0, 4) Sheets("Pesquisa").Range("B" & n).Offset(1, 5).Value = ActiveCell.Offset(0, 5) Sheets("Clientes").Range("B" & n).Offset(1, 6).Value = ActiveCell.Offset(0, 6) Sheets("Pesquisa").Range("B" & n).Offset(1, 7).Value = ActiveCell.Offset(0, 7) Sheets("Pesquisa").Range("B" & n).Offset(1, 8).Value = ActiveCell.Row n = n + 1 End If ActiveCell.Offset(1, 0).Select Loop If n > 1 Then ListBox1.RowSource = "Pesquisa!A2:I" & n Sheets("Menu").Select Else ListBox1.RowSource = "" MsgBox "Nenhum registro encontrado", vbInformation, "Aviso" Sheets("Menu").Select End If Alguém consegue me ajudar? Obs: Sou novato no VBA e no forum... Esse código peguei de um projeto que achei na internet.... https://drive.google.com/open?id=0Bxj25TpncBH2MjBFWE9sYVZKTkk&authuser=0