I havent yet tried the two codes that are posted here, but by the looks
of it, it should work. And in case you havent done it before, you can
have the code running for the whole column by following this logic:

Define a starting cell:

eg: define myrange = A2

Use a "Do while not isempty(myrange)

(enter your filtering code here)

Set myrange = myrange.offset(1,0)

Loop

The offset(1,0) would move your range down by one row. If you had used
offset (0,1) , it would have taken you one cell to the right in the
same row. and the loop as defined above would have the filter running
on A2, A3, A4, etc until it hits a blank cell entry.

Hope this helps.

Joe.