macro horizontal count after filter

hello,

im a newbie with macros. I needed to do a horizontal filter with my data, I did using this design:

http://blog.livedoor.jp/andrewe/archives/50283818.html

but now I need to do a count for each item after the filter is performed, so when a columm is hidden after the filter I need to count how many remain. Any help is greatly appreciated.