Subtotal a filtered range grrrr

Hi all, I have a piece of code which works fine if you change the

Please Login or Register  to view this content.

in the macro which is not efficient as there are many filter ranges. I did comment the filter range out and just filter it manually on the spreadsheet but the formula does not get added to the cell, its fine when not filtered but as soon as it has a filter it doesnt work, thanks for the advice and help yesterday but it's still not right and I cant see whats wrong with it.

Please Login or Register  to view this content.

if you don't unfilter the range the end(xlup) part will only find the last visible cell-that's why the .autofilter line was added before finding the last cell in the code I supplied

perhaps

Please Login or Register  to view this content.

you're welcome :-)

don't forget to mark the thread solved