Create a worksheet change event from an addin macro

[nigelog]

A report I have just inherited contains much data that needs to be copied and pasted into another programme. The report is exported from yet another system so is bare xlsx format. I have created an addin where I can run a column delete from the QAT.
I am trying to implement this code to be able to copy by select and paste into the other programme. This would need to reside in the worksheets module. Is there a way to declare the range from outside the worksheet module or alternatively a way to copy the code into the worksheet module.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Lrow As Long
Dim ws As Worksheet
Dim answer As Integer
Set ws = Sheets("DocketList NoLinks - Advanced")
With ws
Lrow = .Range("a" & Rows.Count).End(xlUp).Row
    If Not Intersect(Target, Range("A1:a" & Lrow)) Is Nothing Then
        Target.Copy
        End If
    
    
End With

End Sub

ultimately I would like the target row to be deleted from the worksheet once pasted.

Help appreciated

[nigelog]

found code from davesexcel which needs not to add a new worksheet. Although the Worksheet name is seen in the debugger it errors on line shown. It will complete if adding a new worksheet.

Sub copySheetModule()


  Dim DstCmod    As VBIDE.CodeModule
  Dim xLine As Long
  


  Set DstCmod = ActiveWorkbook.VBProject.VBComponents(ws.Name).CodeModule '''''''''''''''''''''''''''''''''Error here although sees correct ws
  With DstCmod
              xLine = .CreateEventProc("SelectionChange", "Worksheet")
            xLine = xLine + 1
            .InsertLines xLine, "  Dim Lrow As Long"
            xLine = xLine + 1
            .InsertLines xLine, "  With ActiveSheet"
            xLine = xLine + 1
            .InsertLines xLine, "  Lrow = .Range(""a"" & Rows.Count).End(xlUp).Row"
            xLine = xLine + 1
            .InsertLines xLine, "  If Not Intersect(Target, Range(""A1:a"" & Lrow)) Is Nothing Then"
            xLine = xLine + 1
            .InsertLines xLine, "  Target.Copy"
            xLine = xLine + 1
            .InsertLines xLine, "  End If"
End With
End Sub

[nigelog]

Copies code to worksheet module if changed to

Set DstCmod = ActiveWorkbook.VBProject.VBComponents("Sheet1").CodeModule