You're welcome, glad I could help.

Be aware this solution is not a one size fits all.

It works fine here because the data is sorted and all the filtered rows are contiguous.
Also, the filtRng.Columns(x).Offset(1).SpecialCells(xlCellTy peVisible) always includes one extra row beyond the bottom of the filtRng which gets loaded into the drop down lists, hence the blank at the bottom. This prevents issues when there are no filter results but it may not always be desirable.