Caros colegas, preciso de uma ajuda na seguinte formatação de VBA

Range("D5:J1000") = ""

Range("Pesquisa").Select

Linha = 2
lin = 5

Do Until Banco1.Cells(Linha, "A") = ""
'Banco1 refere-se ao renomeio do BD em VBA'

If InStr(1, UCase(Banco1.Cells(Linha, "B")), Trim$(UCase(Cadastro.Range("Pesquisa")))) > 0 Then
Cadastro.Cells(lin, "D") = Banco1.Cells(Linha, "A").Value
Cadastro.Cells(lin, "E") = Banco1.Cells(Linha, "B").Value
Cadastro.Cells(lin, "F") = Banco1.Cells(Linha, "C").Value
Cadastro.Cells(lin, "G") = Banco1.Cells(Linha, "D").Value
Cadastro.Cells(lin, "H") = Banco1.Cells(Linha, "E").Value
Cadastro.Cells(lin, "I") = Banco1.Cells(Linha, "F").Value
Cadastro.Cells(lin, "J") = Banco1.Cells(Linha, "G").Value

'Esta fórmula está pegando a planilha cadastro coluna D e linha 5 e demais colunas'

lin = lin + 1

End If

Linha = Linha + 1

Loop

End Sub

 

Estou com esta formula que faz uma pesquisa no Banco de dados, acontece que, ele está buscando apenas o conteúdo da coluna B, queria fazer a busca por qualquer variável que esteja na planilha do banco de dados, ou seja lá tenho "Produto", ","código", "valor", "estoque", hoje a pesquisa traz apenas o "produto"

 

Se alguém puder ajudar agradeço!

 

Att..

 

Mazzetto