主题：如何实现筛选后 多个相同行只显示第一行？

下拉窗口打开后的筛选，如 

Tables("选择产品_table1").Filter = "[库存数量] >0"
Tables("选择产品_table1").Sort = "产品名称,入库日期"

执行筛选后，由于产品很多，而且相同的“产品名称”因为“入库日期”的不同也会有多行，这样下拉窗口会很长且查找不方便，而我只需要每个产品的第一行，也就是“入库日期”最早的一行，其它相同产品隐藏，请问如何实现？