Как использовать VBA в Excel для вставки значений, когда значение ячейки изменяется в списке?

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, нашел это на сайте как при первоначальном поиске решения