Filter based 3 criteria

Hi all

I need filter based 3 criteria, but my filter it's diplay wron result.


Thanks

marreco,
You have used "PEQUENO" twice. Is this correct?

Option Explicit

Sub Filtered_Icorrect()
Dim lRow As Long

Worksheets("FRM").Range("A2:AB10000").ClearContents
    Application.ScreenUpdating = False
    With Sheet1
        .AutoFilterMode = False
        lRow = .Range("A" & Rows.Count).End(xlUp).Row
        .Range("A1:G" & lRow).AutoFilter Field:=1, Criteria1:="PEQUENO"
        .Range("A2:B" & lRow).COPY Worksheets("FRM").Range("A" & Rows.Count).End(xlUp).Offset(1)
        .Range("G2:G" & lRow).COPY Worksheets("FRM").Range("G" & Rows.Count).End(xlUp).Offset(1)
        .Range("A1").AutoFilter
    End With
    With Sheet1
        .AutoFilterMode = False
        lRow = .Range("A" & Rows.Count).End(xlUp).Row
        .Range("A1:G" & lRow).AutoFilter Field:=1, Criteria1:="MEDIO"
        .Range("A2:G" & lRow).COPY Worksheets("FRM").Range("I" & Rows.Count).End(xlUp).Offset(1)
        .Range("A1").AutoFilter
    End With
    With Sheet1
        .AutoFilterMode = False
        lRow = .Range("A" & Rows.Count).End(xlUp).Row
        .Range("A1:G" & lRow).AutoFilter Field:=1, Criteria1:="GRANDE"
        .Range("A2:G" & lRow).COPY Worksheets("FRM").Range("Q" & Rows.Count).End(xlUp).Offset(1)
        .Range("A1").AutoFilter
    End With
    
    Application.CutCopyMode = False
    Application.ScreenUpdating = True
End Sub

Hi AB33, i like it, i'm very glad, thank you very much!!!