копировать значение с одного листа на другой на основе триггера ячейки

Question

Я пытаюсь найти простой способ скопировать значение из ячейки на одном листе в другую ячейку на другом листе на основе триггера ячейки. Я получил просто событие запуска ячейки, которое вызывает подпрограмму;

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Selection.Count = 1 Then
        If Not Intersect(Target, Range("C:C")) Is Nothing Then
            Application.Run "Workorder"
            'Application.Run "'my-calc2 - visualtest2.xls'!line"
            'Range("A" & ActiveCell.Row & ":J" & ActiveCell.Row).Value = Range("Requester name")
        End If
    End If
End Sub

Я вызываю подпрограмму

Sub workorder()
    Range("Requester_name").Value = Range(ActiveCell.Row, 3)
End Sub

Но я застрял в последней подпрограмме, что я делаю не так?