Excel - 按数据验证列表

Question

希望按照说明更新此帖子。

我已经写出了一个简单的复制和粘贴子程序，但是我遇到了一些奇怪的行为，希望你们中的一个能够提供一些见解。

VBA代码：

Sub Test()
Worksheets("Test").Activate
   If Range("B13") = "Pre-existing Album data does not exist on this Customer account" Then
   Worksheets("Test").Range("B21:B1000").Delete
   Worksheets("Test").Range("D21:D1000").Delete
   Worksheets("Master").Range("A2:A14").Copy Worksheets("Test").Range("B21")
   Worksheets("Master").Range("C2:C14").Copy Worksheets("Test").Range("D21")

   Else
    MsgBox ("Please select a Precondition")

   End If
End Sub

问题： 我遇到的问题是当此代码执行两次时，它还会将值填充到我的测试工作表的C21列，从而导致覆盖其他输入数据。

期望： 我的期望是只将我的主工作表中的数据集粘贴到我的子程序中定义的B21和D21列。

提前感谢所有助攻， 特伦斯。