Excel VBA - como usar find para achar texto copiado

[isabela queiroz]

Queria encontrar na planilha "BOM.CO" a tabela "PN" e em seguida copiar a celula abaixo dele, para procurar no sheets "pier distribution" onde esse texto da celula abaixo esta 

 

 

Windows(" BOM.CO").Activate 
    
    Cells.Find(What:="PN", After:=ActiveCell, LookIn:=xlValues, LookAt:= _
        xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
        , SearchFormat:=False).Activate
        
    ActiveCell.Offset(1, 0).Select
    Selection.Copy
    
    Sheets("Pier Distribution").Select
    

   

[AfonsoMira]

Boas @isabela queiroz ,
Seria algo deste género:
 

Sub procura()

Windows(" BOM.CO").Activate

Cells.Find(What:="PN", After:=ActiveCell, LookIn:=xlValues, LookAt:= _
xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
, SearchFormat:=False).Select

ActiveCell.Offset(1, 0).Select

'Define o valor da Variavel
valorProcura = ActiveCell.Value

Sheets("Pier Distribution").Select

'Procura a variavel
Cells.Find(What:=valorProcura, After:=ActiveCell, LookIn:=xlValues, LookAt:= _
xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
, SearchFormat:=False).Select

End Sub

 

[isabela queiroz]

@AfonsoMira então, eu precisava que o codigo pegasse o primeiro item abaixo do "PN" na planilha "Details" e pesquisasse na sheets "Pier Distribution" o numero que esta na celula, independente de qual seja o valor dela. o codigo que voce me passo ta só avançando pra celula seguinte e não pesquisando o valor dela não entendi se fiz algo errado

 

e depois que fizesse isso ele fizesse pro proximo "PN" tambem e por assim vai mas que fosse separada os códigos porque antes de pesquisar o proximo PN eu vou colocar algumas outras funções.