当单元格值在列表中更改时，如何在Excel中使用VBA粘贴值？

Question

我正在设置电子表格以用作UTM代码生成器。我在该行上设置了下拉菜单，然后将这些值连接到一个链接中。我设置了一个宏，将公式单元格的值粘贴到相邻的单元格，以便可以根据需要将其复制。每当公式单元格更改时，我都有vba运行宏，但只能在一定范围内运行。因此，当它在第2行更改时，该宏也会在随后的所有行中运行。谁能帮助vba使其一次只运行一行？

Private Sub Worksheet_Calculate()
    Dim Xrg As Range
    Set Xrg = Range("J2:J1000")
    If Not Intersect(Xrg, Range("J2:J1000")) Is Nothing Then
    Paste_Range
    End If
End Sub

vba的新手，最初在寻找解决方案时就在网站上找到了它