Erro na macro Excel VBA

Gostaria de saber se alguém poderia me ajudar… Eu estou gravando uma macro no excel para copiar o valor de uma célula de uma planilha e procurar em outra o valor desta célula.
Exemplo : Copiar célula h11 da plan1, ir para a plan2 , abrir recurso localizar, colar o valor que eu copiei da célula A1 da plan1 e ele me leve para a célula que corresponde ao valor que eu copiei e colei. Só que a macro sempre registra o primeiro número que eu copiei e colei e não copia e cola o valor da célula. Abaixo estão os códigos que o excel gerou quando eu gravei a macro:

Sub Macro1()

’ Macro1 Macro


ActiveWindow.SmallScroll Down:=-9
Range(“H11”).Select
Selection.Copy
Sheets(“BD fornecedores”).Select
Range(“Tabela1[[#Headers],[Código]]”).Select
Cells.Find(What:=“5”, After:=ActiveCell, LookIn:=xlValues, LookAt:= _
xlWhole, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:= _
True, SearchFormat:=False).Activate

End Sub

No caso eu gostaria de saber que código preciso usar no lugar deste “5” para que ele copie e cole o valor da célula H11 da Plan 1 para que quando eu mudar o valor da célula A1 ele encontre esse valor na BD fornecedores e marque a célula que contém o valor!

obrigado!

Boas e bem-vindo
Ora experimente assim.

Sub procurarValor()

Dim valorProcurar As String

valorProcurar = Range("H11").Value
Sheets("BD fornecedores").Select
Range("Tabela1[[#Headers],[Código]]").Select
Cells.Find(What:=valorProcurar, After:=ActiveCell, LookIn:=xlValues, LookAt:= _
xlWhole, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:= _
True, SearchFormat:=False).Activate

End Sub