Macro - Localiza, copia e cola

Olá, sou novo nas arte-manhas de macro, e estou apanhando para criar uma macro.
É o seguinte, tenho duas 2 planilhas (Plan1 e Plan2).
Na Plan1 tenho uma célula onde irei digitar um valor (ex. A1). Gostaria de uma macro que buscasse esse valor, digitado na Plan1 célula A1, na Plan2, caso encontrar este valor me trazer o texto que está na célula a frente deste valor (a macro encontrou o valor numa célula random qualquer ex. F9, e a macro copiar o valor da célula G9, célula a frente da encontrada, e colar esse valor em uma célula da Plan1 ex. A2).

Agradeço antecipadamente, Obrigado.

Boa tarde!!

Poderia postar seu arquivo modelo em site gratuito como 4shared e depois nos mandar o link?

Obrigado pelo ajuda alexandrevba, mas já consegui um código que atendeu o que precisava;

Sub ProcurarCopiar()
Dim Celula As Range
Dim Valor

Valor = Sheets("Plan1").[A1].Value

For Each Celula In Sheets("Plan2").UsedRange
If Celula.Value = Valor Then
Sheets("Plan1").[A2].Value = Celula.Offset(0, 1).Value
Exit For
End If
Next
End Sub

Boa noite!!

Quem bom que resolveu!!

Abraços!!

Boa tarde,

Meu problema é parecido com o do amigo ricardodim, mas eu tentei implementar a mesma solução fazendo modificações para meu código e não obtive sucesso. No meu caso, preciso que uma variavel(prod) receba o valor de uma célula na plan1("Produtos") e procure o valor na plan2("Listaitens") que é abastecida com valores de um banco de dados. Depois que o valor foi encontrado, a variavel pdd iria receber o valor de 3 colunas depois na mesma linha(Seria um como um pdd = procv(prod;Listaitens!$B$8:$E$300, 4, 0). Entao o valor de pdd seria inserido em outra plan("Script").
Poderiam me ajudar?

Desde ja agradeço a ajuda.