How to filter data with a multi-selection listbox

Sorry,
I can't make an auto-refreshing subtotal.
Is there a way to have a cell in which I put a Subtotal formula that auto-refreshes when the advanced filter is on??

=SUBTOTAL(9,D: D) Assuming you wish to total visible cells in column D

OK the subtotal function is working fine.
Is there a way to edit this piece of code in order to select 2 columns instead of only one?
[VBA]Application.Goto Range("CritRange")

Range("Database").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
Range("CritRange"), Unique:=False[/VBA]

I cannot include any other column in the "CritRange" part.
I need to have 2 listboxes that filter 2 different columns by clicking one filter button.
The CritRange code is:
[VBA]OFFSET(DASHBOARD!$H$1;0;0;COUNT(DASHBOARD!$H:$H);1)[/VBA]
Sorry about all of these problems :(

this code helped me, thanks

This thread helped me out as well, thanks!

Is it possible that i've overlooked the file attachments in this thread??

They appear to have got lost!

where is the attached files pls i need this file
i want to filter the table based on what I choose in the Listbox (multiple selection allowed).

In moving hosts, it appears that not all attachments were successfully transferred.