Sub Pesquisa()
  Application.EnableEvents = False
        
        Dim lastRow As Long
        Dim lastResultRow As Long
        Dim X As Long
        
        ' Verifica qual a ultima célula preenchida
        lastRow = Plan1.Cells(Rows.Count, 1).End(xlUp).Row
        
        ' Apaga valores anteriores
        plan2.Range("B2:G65536").ClearContents
        
        lastResultRow = 2 'linha resultado
        
        ' Ciclo em todas as linhas
        For X = 1 To lastRow '1 Linha dados pequisa
        
           ' verifica se o valor é igual ao da pesquisa
           If Plan1.Cells(X, 1).Value = CDbl(plan2.Range("A1").Value) Then '1 coluna pequisa
           
                ' Copia os valores
                plan2.Cells(lastResultRow, 2).Value = Plan1.Cells(X, 1).Value
                plan2.Cells(lastResultRow, 3).Value = Plan1.Cells(X, 2).Value
                plan2.Cells(lastResultRow, 4).Value = Plan1.Cells(X, 3).Value
                plan2.Cells(lastResultRow, 5).Value = Plan1.Cells(X, 4).Value
                plan2.Cells(lastResultRow, 6).Value = Plan1.Cells(X, 5).Value
                plan2.Cells(lastResultRow, 7).Value = Plan1.Cells(X, 6).Value
                plan2.Cells(lastResultRow, 8).Value = Plan1.Cells(X, 7).Value
                lastResultRow = lastResultRow + 1
           End If
        Next
    Application.EnableEvents = True
End Sub

Jose,

Obrigado! Deu certo!

Abraço

Daniel