Data Filter - count countries selected by filter

[martiano]

I have table for example like this and Im using function Subtotal to count all countries what are selected by filter.

I will for example choose by filter only countries "Asia" and "Europe".

And here is the result, what is ok.

My quesion is:

I want to count not only Total countries selected by filter, but count all countries on every continent selected by filter.
so the resualt should by in this example:
Total countries: 13
Africa: 0
America: 0
Asia: 10
Europe:3

What function or functions do I need to use to get this result? Thank you

 

[UniMord]

You can count the individual countries with this short UDF:

Function vis_countif(rng As Range, crit As Variant) As Long
    Dim i As Long, cel As Range
 
    For Each cel In rng
        If cel = crit And Not cel.EntireRow.Hidden Then i = i + 1
    Next cel
 
    vis_countif = i
End Function