SUM.HVIS på synlige celler i et ark med autofilter

Jeg vil gerne lave en SUM.HVIS på de synlige celler i et ark med autofilter - altså ikke det kendte problem med at bruge SUBTOTAL for kun at summere de synlige, men derimod kun at summere de synlige celler, som opfylder en given betingelse, uden at de celler, som er skjult med autofilter, og som opfylder samme betingelse, tælles med.

Jeg har indtil videre ikke fundet på en bedre løsning end denne:

    Range("A1").Select
    ActiveCell.SpecialCells(xlLastCell).Select
    tal = ActiveCell.Row
    For Each cell In Range("B1:B" & tal)
        cell.Value = 0
        If cell.Rows.Hidden = True Then
            cell.Value = 0
        Else
            cell.Value = 1
        End If
    Next

- hvorefter jeg sætter kolonne C = kolonne A * kolonne B og så laver min SUM.HVIS på kolonne C.

Jeg kan se, at variablen "tal" rent faktisk får den rigtige værdi, altså rækkenummeret på sidste række med data i kolonne A, også selv om rækken er skjult, men for de skjulte rækkers vedkommende virker tricket kun på dem, der kommer før sidste synlige række - de får værdien 0 i kolonne B, mens de skjulte rækker efter sidste synlige række beholder den værdi i kolonne B, som de havde i forvejen.

Hvorfor det, og hvad kan jeg gøre?
Andre/bedre metoder til at løse problemet end ovenstående er også velkomne.