Experimente acrescentando a linha abaixo em azul:

Set localizador = .FindNext(localizador)
If localizador Is Nothing Then Exit Sub

Abaixo uma versão sem o uso de 'Select'

Sub localizaV2()
 Dim localizador As Range, i As Long, ENDERECO As String
    i = 2
    With Plan1.Range("A1:A10000")
        Set localizador = .Find("OK", LookIn:=xlValues)
        If Not localizador Is Nothing Then
            ENDERECO = localizador.Address
            Do
                Rows(localizador.Row).Cut
                Sheets("Plan2").Rows(i).EntireRow.Insert Shift:=xlDown, CopyOrigin:=True
                Set localizador = .FindNext(localizador)
                If localizador Is Nothing Then Exit Sub
                i = i + 1
            Loop While Not localizador Is Nothing And localizador.Address <> ENDERECO
        End If
    End With
End Sub

obs. não consegui editar o post anterior

Muito obrigado Osvaldo!

Resolveu meu problema!!!

Osvaldo, só mais uma ajuda. rs

eu estou tentando colar essas informações dentro de uma Tabela. Porém, a Macro sempre cola fora da Tabela, abaixo dela.

a Tabela começa na A5:N5, e sempre são inseridos mais dados.

eu estou tentando colar essas informações dentro de uma Tabela. Porém, a Macro sempre cola fora da Tabela, abaixo dela.
a Tabela começa na A5:N5, e sempre são inseridos mais dados.

O seu código insere linhas, iniciando na linha 2 (i=2), depois na 3, 4, ...(i=i+1), e nelas cola os dados, sendo que o usual é colar os dados na primeira linha vazia abaixo da tabela. Não sei se no seu caso seria viável colar logo abaixo da tabela ao invés de inserir linhas. Se sim, acho que vale a pena alterar o seu código.

Mas se você prefere continuar a inserir linhas e quiser alterar a linha de partida, basta alterar no código o valor inicial de 'i'. Por exemplo, se quiser inserir primeiro na linha 5, altere para i=5 .

Eu prefiro buscar na última usada e colar abaixo dela.

Como não sou expert de Macro, estou aprendendo agora. Peguei um outro código que eu tinha de pesquisar a ultima usada e colar abaixo.

Porém está dando erro.

Sub localizaV2()
Dim localizador As Range, i As Long, ENDERECO As String
    i = 2
    With Plan5.Range("o1:o10000")
        Set localizador = .Find("BOK", LookIn:=xlValues)
        If Not localizador Is Nothing Then
            ENDERECO = localizador.Address
            Do
                Rows(localizador.Row).Cut
                Plan7.Select
                Range("A5").Select
                Selection.End(xlDown).Select
                ActiveCell.Offset(1, 1).PasteSpecial Paste:=xlPasteValues

            Loop While Not localizador Is Nothing And localizador.Address <> ENDERECO
        End If
    End With
End Sub

Segue a planilha que estou utilizando.

Eu necessito que o que está como "BOK" na Plan5 vá para a Plan7 dentro da tabela.

Já tentei vários códigos, mas ele acaba sempre colando abaixo da tabela.

Eu prefiro buscar na última usada e colar abaixo dela.

Experimente este código

Sub TransfereDados()
 Dim localizador As Range, ENDERECO As String
   Set localizador = Range("O:O").Find("BOK", LookIn:=xlValues)
    If Not localizador Is Nothing Then
     ENDERECO = localizador.Address
      Do
       Cells(localizador.Row, 1).Resize(, 15).Cut Plan7.Cells(Rows.Count, 1).End(3)(2)
       Set localizador = Range("O:O").FindNext(localizador)
       If localizador Is Nothing Then Exit Sub
      Loop While Not localizador Is Nothing And localizador.Address <> ENDERECO
    End If
End Sub

obs. no arquivo que você disponibilizou o código está no módulo de 'EstaPasta_de_trabalho', embora também funcione estando lá, o local indicado é em um módulo comum. Você pode aproveitar um dos 13 módulos vazios que existem no seu arquivo... ; mantenha na Plan5 o botão que dispara o código

Obrigado Osvaldo, tu é o mestre mesmo!