Tælle rækker EFTER filter

Heps,

Følgende linje tæller et antal respondenter (rækker), der alle har svaret på en bunke spm (i kolonner):

antalrespondenter = Worksheets("Ark1").Cells(Rows.Count, 1).End(xlUp).Row - 1

Jeg har brug for at lave rapporter for forskellige grupper fra den samlede liste af respondenter og må i dag slette og indsætte hver gang jeg kører en rapport, så det fx kun er poster med titlen "brandmand" der er på listen. Jeg vil rigtig gerne blot kunne bruge autofilter, men de skjulte rækker tælles med!

Kan man erstatte ovenstående optælling, så autofilter kan anvendes?