如何为高级过滤器宏创建列和行动态过滤器？

Question

我正在创建这个迷你“搜索引擎”，它允许我按类别过滤网站，看看它们是否与特定类别相匹配等等。我为高级过滤器创建了一个宏，并在另一个工作表和另一个工作表中传递了我的信息以清理我的选择。

问题在于我似乎无法以我需要的方式使其动态化（当前区域将无法工作，因为我可能必须跳转列或行）。我将在下面附上我的VBA代码（我试图让它变得动态）。

    Sheet6.Range("B1").CurrentRegion.AdvancedFilter Action:=xlFilterCopy, _
    CriteriaRange:=Sheet1.("A1:A01").End(xlDown), CopyToRange:=Sheet5.Range("D10:AR10"), Unique:= _ False (I tried to insert my VBA as code - I hope it works).

基本上，我需要我的过滤器来捕获工作簿中的任何文本或数字。过滤器标题来自A1：AO1，它位于sheet1，数据存储在sheet6中，数据应在sheet5中检索。