filtering data if have X value, if not then filter with Y

Well..i am filtering from A2 to D2 to the bottom..but as the first value is found, it should solve the problem as before i have a macro that will select let say, all the 10...or all the 20...

so, it look a bit like that on my excel sheet

10_C03
10_C05
etc...etc..
10_R01

Also, I tried the macro...it said name argument not found and it highlight in yellow the

.AutoFilter field:=1, Criteria1:="10_C*"

Sample.xlsmany clue why?....here a sample of the data..see the files!

help lol..

I cant seem to make it work

I do not know what is the purpose of the code.
Why do you need an if statement and a loop? And after a filter is found, what is the purpose- loop in to next row? What happens to the filtered data then?

i am sorry..i am learning VBA by myself...and i am not a pro..am at the point where i can take code, play with it, modify it and make it work..but sometime it look a bit messy

has you can see with the file i attached. What I want is..when I will click on 10, it will filter all the 10..then..when i click on C..it will filter all the C on the already filtered list....which mean, all the 10_C*
then at last, when I will click 1, it will filter the already filtered 10 and C and will only filter the 01...which will have for result 10_C_01

another example: If i click on the 20, it will select all the 20...then, if i click on the R...it will filter all the R that are in the 20..so it will look like 20_R*...then, if i want to see all the number 10...it will filter The 20_R_10..

Button click order are selection of the group 10-90 (green button)
Then selection of the Type (mixed, R, Other, MP, C, etc)(Orange button)
and selection of the number 1-96 (Blue button)

I tried to build a macro and make it work..but i got stuck at the second "filtration"

I also had this one...but it doesnt work -_-....

Sub Cart1()


With Sheets("input_sheet")

Application.ScreenUpdating = False

With Range("a1")
   
    If (Sheets("input_sheet").AutoFilter.Range.SpecialCells(xlCellTypeVisible).Count = "10*") Then

            Selection.AutoFilter field:=1, Criteria1:="10_C*"
    
    ElseIf (Sheets("input_sheet").AutoFilter.Range.SpecialCells(xlCellTypeVisible).Count = "20*") Then
   
            Selection.AutoFilter field:=1, Criteria1:="20_C*"
   End If
   
End With

End With

End Sub

so what do you think guys?

Xero, I was able to make it work..i am sorry, I had a hard time understand what you said, it seem there was a part missing..here is the code:

Sub CartCType()

Dim bottomA As Long

Application.ScreenUpdating = False

    With Sheets("input_sheet")
        bottomA = .Range("A" & .Rows.Count).End(xlUp).Row
        For x = 2 To bottomA
            If .Cells(x, "A") Like "10*" Then
                .Cells(x, "A").AutoFilter field:=1, Criteria1:="10_C*"
                
            ElseIf .Cells(x, "A") Like "20*" Then
                .Cells(x, "A").AutoFilter field:=1, Criteria1:="20_C*"
            End If
        Next x

    End With

Application.ScreenUpdating = True

End Sub

now for your asnwer, there is no need to be a loop since it<s the first column that is filter..damn i am dumb...THANKS for your helps

i added to your rep guys!