用另一个列表过滤一个列表

Question

我有一个任务列表，我需要过滤到我在另一个工作表中列出的任务。 如果手动执行此操作，您将通过“列表”表中的每个任务名称选择每个复选框。 另一张纸是“标准”。 我需要能够随着时间的推移更新标准列表，所以我做了一个循环来过滤“列表”，“标准”的内容在列表中向下移动，直到活动单元格为空。 我的问题是最后的过滤器只是最后一个值。 如何在最后一个过滤器的“顶部”添加每个过滤器？

Range("A1").Select
Range(Selection, Selection.End(xlToRight)).Seleect
Selection.AutoFilter
Sheets("Criteria").Select
Range("A1").Select
Do Until IsEmpty(ActiveCell.Value)

Worksheet("List").Range("$A$1:$A$50$").AutoFilter Field:=1, Criteria=ActiveCell
ActiveCell.Offset(1,0).Range("AA1").Select

Loop