Excel 如何编辑此代码以仅使用VBA粘贴值？

我在VBA中有这段代码要复制并粘贴到DK列中的下一个空单元格中，但如果原始单元格是函数，则粘贴的值显示为0。有没有办法只粘贴原始单元格的值

Sub CopyToDK()
Range("CN59").Copy Range("DK" & Rows.Count).End(xlUp)                                               
End Sub

---

如果您只想复制值，您可以这样做

Sub CopyToDK()
Range("DK" & Rows.Count).End(xlUp) = Range("CN59")                                               
End Sub

Range("CN59").Copy
Range("DK" & Rows.Count).End(xlUp).PasteSpecial xlPasteValues