將過濾的數據復制到其他工作表

Question

我正在嘗試按D列中的條件過濾數據並將C列中的過濾數據復制到另一張紙上。 當我在數據表中運行該代碼時，此代碼有效，但無法運行，並且給我運行時錯誤'1004'Range類的選擇方法失敗，突出顯示了代碼的第一行。 誰能幫助我，以便我可以在任何工作表中運行此代碼？

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

Answer 1

在代碼頂部添加Data.Activate