在Excel列表上使用过滤器和VBA来清除和重置过滤器

我在excel中有一个列表。
可以这样说（3列）：

ColorTop LayerName ColorBottom

列表在第一列上过滤。
假设它已过滤为橙色。

我有一个宏，可以将该活动工作表克隆到新工作簿中。

我想捕获存储在原始工作簿上第1列的过滤器设置，并将其应用于新工作簿上的第3列，以及清除新工作簿上第1列的过滤器。

到目前为止，我所拥有的只是此宏，只需单击一下即可运行，以进行克隆：

activeSheet.Copy


我不熟悉在列表上捕获和恢复过滤设置。

但是，我的想法是，我希望新的工作表不过滤橙色的ColorTop，而是过滤橙色的ColorTop。

这是我在录制时得到的宏，但是如何编写逻辑以捕获并从第1列还原到第3列？

activeSheet.ListObjects("Table2").Range.AutoFilter Field:=1
activeSheet.ListObjects("Table2").Range.AutoFilter Field:=3,Criteria1:= _
"dbo.enrollments"


这是我要尝试的操作，但是语法不正确：

activeSheet.ListObjects("Table243").Range.AutoFilter Field:=3,Criteria1 := _
activeSheet.ListObjects("Table243").Range.AutoFilter Field:=1,Criteria1
activeSheet.ListObjects("Table243").Range.AutoFilter Field:=1