Excel VBA在另一个工作表中按定义的次数复制并粘贴单个单元格

我有一些VBA代码，点击一个按钮就会激活。 它将值从一个工作表中的一系列单元格复制并粘贴到另一个工作表中的定义位置

但是，我也希望从原始工作表的另一个位置复制单个单元格的数据，并将其复制到另一个工作表中定义数量的单元格中。我在下面的代码中将复制函数添加到复制粘贴值函数的底部。但我正在努力解决这个问题，因为我的代码不起作用。请问我做错了什么？我怎样才能纠正它

Private Sub CommandButton1_Click()
Dim controlRng, nRng As Range
Set controlRng = Range("AD12")  ' This the range of cells which I have defined to be my dropdown cells.
lastrow = Sheets("Planning").Range("A" & Rows.Count).End(xlUp).Row + 1

If controlRng = "Apr-20" Then
    Range("AH10:AM30").Copy
    Sheets("Planning").Range("D" & lastrow).PasteSpecial xlPasteValues ' Copy and paste values to next available rows in destination sheet
    Range("AB12").Copy
    Sheets("Planning").Range("A" & lastrow).Resize(14*("A2").Value

---

你能解释一下你想用

Resize（14*（“A2”）做什么吗.Value

？是的，这是我找到的代码，允许我将单个单元格复制定义的次数，在本例中，从另一张工作表的单元格A2开始，将AB12中的数据复制14次。通常我的范围搞错了。我对此有另一个问题，但我将为此提出另一个问题。谢谢

Private Sub CommandButton1_Click()
    Dim controlRng, nRng As Range
    Set controlRng = Range("AD12")

    lastrow = Sheets("Planning").Range("A" & Rows.Count).End(xlUp).Row + 1

    If controlRng = "Apr-20" Then
        Range("AH10:AM30").Copy
        Sheets("Planning").Range("D" & lastrow).PasteSpecial xlPasteValues
        Sheets("Planning").Range("A2").Resize(14, 1) = Range("AB12")
    End If
End Sub