将过滤的数据复制到不同的工作表
我正在尝试按列D中的条件过滤数据，并将列C中的filter数据复制到不同的工作表。 当我在数据表中运行此代码时，此代码工作，但它不会运行，并给我运行时错误'1004'select方法的范围类失败，突出显示代码的第一行。 任何人都可以帮助我，以便我可以在任何工作表中运行此代码？
Sheets("Data").Range("D1").Select ActiveSheet.Range("$A:$AI").AutoFilter Field:=4, Criteria1:= _ "Production" Range(ActiveSheet.Range("C2"), ActiveSheet.Range("C2").End(xlDown)).Select Selection.Copy Sheets("Excluding List").Select Range("B3").Select Selection.PasteSpecial xlPasteValues Sheets("Data").Select Selection.AutoFilter Sheets("Data").Range("A1").Select ActiveSheet.EnableCalculation = False ActiveSheet.EnableCalculation = True 在代码的顶部添加Data.Activate