Autofilter Active Column Non Blanks?

I need a VBA code to do the following:

- The active cell i.e. the selected cell can be anywhere on row 11 (this is a merged cell with row 12 but I can unmerge if causes problems)

- The filter needs to be applied to the rows below the active cell (at most this will be about 10,000 rows below)

- I need to filter for non-blanks only

- Above row 11 there is one blank row and a number of filled rows; these need to be ignored i.e. excluded from the filter

- In this case I will need the filter to work on the cell with 'France Trade Product' in it

- The filter would need to hide rows below this cell except for row 16 where a non blank is found

FilterCapture.JPG