Alem da qtd de linhas existe outro criterio que permita a pesquisa??????????

Seria só pela quantidade linhas mesmo. :S

Ainda tô quebrando a cabeça. Alguém?

Boa tarde!!

Tente essa gambiarra

Option Explicit

Sub AleVBA_17812()
    Dim lastrow As Long
    'lastrow = Cells(Rows.Count, "A").End(xlUp).Row
    
    Application.ScreenUpdating = False
        Worksheets("-10%").Cells.Delete
        With Worksheets("Extremos")
            .Activate
            .AutoFilterMode = False
            [A1].Value = "AleVBA"
            [B1].Value = "AleVBA1"
            [C1].Value = "AleVBA2"
            With Range("C2")
                .Formula = "=IF(COUNTA(A:A)*10%,IF(ROW(A1)>COUNTA(A:A)*10%,9,1))&IF(COUNTA(A:A)*90%,IF(ROW(A1)>COUNTA(A:A)*90%,9,2))"
                With .Resize(Range("A" & Rows.Count).End(xlUp).Row - 1)
                    .FillDown
                    .Copy
                    .PasteSpecial xlPasteValues
                End With
            End With
            lastrow = .Range("A" & .Rows.Count).End(xlUp).Row
            .Range("$A$1:$C$" & lastrow).AutoFilter Field:=3, Criteria1:=Array("92"), Operator:=xlFilterValues
            .Range("A2:C" & lastrow).Copy Sheets("-10%").Range("A1")
        End With
        Application.CutCopyMode = False
        
        With Worksheets("-10%")
            .Activate
            Range("A1:C1").EntireColumn.AutoFit
        End With
    Application.ScreenUpdating = True

End Sub

Valeeeeu! Adaptei e funcionou certinho!

Bom dia!!

Fico feliz em ajudar, se foi útil, favor clicar na mãozinha!!

Att

Só mais uma pequena duvida:
Caso eu queira mudar a porcentegem para 5%, onde eu deveria mudar na fórmula?