Vba 复制并粘贴到下一个空行

我有以下代码，它将BX2从“copySheet”复制到BX400，并将其粘贴到“pasteSheet”列A中的第一个空行

---

哪种代码将其粘贴到B列的第一个空行？如果您只关心粘贴值，则首选直接值传输，因为它不涉及剪贴板

with copySheet.Range("BX2:BX400")
    pasteSheet.Cells(Rows.Count, "B").End(xlUp).Offset(1, 0).resize(.rows.count, .columns.count) = .value
end with

---

将

.Cells（）

方法中的

1

更改为

2

。这是列号，因此1=A；2=B等…谢谢。如果我只想将内容粘贴到B列，但如果我想复制另一列（例如C列）并尝试将其粘贴到D列，则将代码中的B更改为D是行不通的。它不会将其粘贴到D列，而是另一列，如E或其他列。你知道为什么会这样吗？

with copySheet.Range("BX2:BX400")
    pasteSheet.Cells(Rows.Count, "B").End(xlUp).Offset(1, 0).resize(.rows.count, .columns.count) = .value
end with