Filter worksheet by lists

[brainzlp]

Hello community, hope you can help me with this

I have the hard part infront, which is difficult to express by words what i have.
Hope you can understand what i'm needing.

I need to use some specific filters In sheet ("Tapasois") and then place the total quantity into a cell in Sheet "RESUMO".

I think i have to use 3 lists:
List of brands: Seat,Citroen, Peugeot, Audi, etc (More will be added later)
List of bubbles: B6,B7 (Later will be added more if needed)
List of width: 60,70,80,90,99 (which can be added more later)

I need to filter my sheet"tapasois" by Brand SEAT only, Then B6 , then 60 and take that total quantity into a cell. then
FILTER BY 70 and place in 3 cells to right
filter by 80 and place 3 cells to right
etc etc till 90
Then Filter SEAT but in "B7" Then measures again and place in the row below.
After all measures i'll pass to:
Citroen witch is the next in list.
Citroen b6 than measures
Citroen b7 than measures

After that go to peugeot (next on list)
Peugeot b6 than measures
peugeot b7 than measures

Than place everything in the right cell in Sheet ("RESUMO")

I've done manually for the first rows in Resumo:

'PREENCHIMENTO DA LINHA SERIGRAFIA B6 CRU
'Filtrar "tipo de impressão" para C) SERIGRAFIA"'
Range("A:AW").AutoFilter field:=13, Criteria1:="C) SERIGRAFIA"

Range("A:AW").AutoFilter field:=21, Criteria1:="B6"

Range("A:AW").AutoFilter field:=23, Criteria1:="60"

If Worksheets("Tapasois").Range("T" & Rows.Count).End(xlUp).Value = Empty Then
    Worksheets("RESUMO").Range("B8") = Empty
Else
    Worksheets("RESUMO").Range("B8") = Worksheets("Tapasois").Range("T" & Rows.Count).End(xlUp)
End If

Hope you can help me out with this, cuz in future it's easy, just have to add on list, otherwise i'll have to be programming soon as another brand comes.