VBA：范围类的粘贴方法停止工作

Question

我的代码停止工作，我不知道为什么。它曾经工作得很好。 我的想法是从数据库工作表中复制范围，然后将其自动粘贴到基础工作表中并删除所有重复项。

谢谢。

Sub RemoveDuplicates3()
Sheets("Database").Range("P6:P1000").Copy
Sheets("Basesheet").Range("Q24").PasteSpecial xlPasteValues
Range("Q24:Q200").RemoveDuplicates Columns:=1
End Sub