Bom dia, preciso de um código VBA que ao inserir um nome de um produto em uma célula, ocorra uma busca em uma segunda planilha onde está armazenado dados sobre o produto e esses dados sejam preenchidos em uma terceira planilha.

Segue o código que fiz mas não está funcionando:

Dim nome, nomequimico, controleEx, controlePf As String
Sub novaMp(novaMp As String)
Application.ScreenUpdating = False

Plan7.Select
Range("j3").Select
novaMp = UCase(novaMp)

Do While ActiveCell.Value <> ""
If ActiveCell.Value = novaMp Then
novaMp = ActiveCell.Offset(0, 0).Value
controlePf = ActiveCell.Offset(0, 1).Value
controleEx = ActiveCell.Offset(0, 2).Value

Plan1.Select

Range("d7").Value = novaMp
Application.ScreenUpdating = True

Plan2.Select

If controlePf = "x" Then

MsgBox "Materia Prima Controlada pela Policia Federal.Solicitar Informação", vbExclamation
Range("b14").Value = "(x) Sim** pela Polícia Federal"
Range("c14").Value = "( ) Não"

ElseIf controleEx = "x" Then

MsgBox "Materia Prima Controlada pelo Exército. Solicitar Informação", vbExclamation
Range("b14").Value = "(x) Sim** pelo Exército"
Range("c14").Value = "( ) Não"

Else

Range("c14").Value = "(x) Não"

End If

Exit Sub
End If
ActiveCell.Offset(1, 0).Select
Loop
Application.ScreenUpdating = True
End Sub