Excel VBA - encontrar um texto em uma planilha e colar as informações abaixo dela

[isabela queiroz]

existe duas planilhas,  uma com os dados e outra com um tamplete que precisa ser preenchido.

 

na planilha com os dados, preciso que por VBA a MACRO encontre o texto "PN" desça uma casa e copie ate o final das celulas preenchidas.

 

utilizei 

With rngProcura
    Set rngPN = .Find(what:="PN", LookAt:=xlWhole, MatchCase:=False, SearchFormat:=False)
    If Not rngPN Is Nothing Then
        colunaPN = rngPN.Column
    End If
    
End With

 

porém não sei da continuidade no codigo para fazer o codigo, não sei se utilizo ultcell e como seleciono esses dados abaixo do "PN", depois preciso colar esses dados em outra planilha que preciso que encontre o campo "Item Number" 

e cole uma celula abaixo desse "item number" 

[Basole]

@isabela queiroz se o que deseja copiar o que está abaixo de PN, ou seja a uma linha abaixo, utilize referenciando o endereço da linha e a respectiva coluna:

 

 

Cells(rngPN.Row+1, Coluna)

 

 

 

 

 

[isabela queiroz]

@Basole mas no caso precise que encontre primeiro o PN e depois copie o que esta abaixo dele, por exemplo  preciso que encontre o "PN" pegue e copie todas celulas preenchidas embaixo desse PN e cole em outra planilha 

 

[isabela queiroz]

Em 14/10/2022 às 13:56, Basole disse:

@isabela queiroz se o que deseja copiar o que está abaixo de PN, ou seja a uma linha abaixo, utilize referenciando o endereço da linha e a respectiva coluna:

 

 

Cells(rngPN.Row+1, Coluna)

 

 

 

 

 

 

como eu utilizo esse "cells(rngPN.row+1.. ?

não sei onde colocar ele do codigo

 

tenho um passo a passo do que precisa ser feito 

 

'primeiro abrir a planilha "BOM.CO" pegar os "PN"  ex. "NXH - 2.4.1.20.0470"  DO SHEET "Details" e pesquise na planilha "Pier Distribution"
'encontrar o "NXH - 2.4.1.20.0470" e ver embaixo dele quais infos estão preenchidas
'reconhecer e copiar as info da frente da linha que estiver preenchida (tirar os repetidos)
'colar no item number da planilha "MACRO M"

 

 

Comecei o codigo assim mas acho que não esta funcionando

Dim wb As Workbook: Set wb = ThisWorkbook
Dim ws As Worksheet: Set ws = wb.ActiveSheet

Dim rngProcura As Range: Set rngProcura = ws.Range("A1:XFD1048576")
Dim rngPN As Range
Dim colunaPN As Long


    Windows("BOM.CO").Activate 'SELECIONANDO A PLANILHA DA JANELA DO PROJETC BOM.CO
    Sheets("Details").Select
    

    Cells.Find(what:="PN", After:=ActiveCell, LookIn:=xlValues, LookAt:= _
        xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
        , SearchFormat:=False).Activate
        
        
       With rngProcura
    Set rngPN = .Find(what:="PN", LookAt:=xlWhole, MatchCase:=False, SearchFormat:=False)
    If Not rngPN Is Nothing Then
        colunaPN = rngPN.Column
    End If
    
End With

'Cells(rngPN.Row+1, Coluna)