Add sheet. Copy Code & Paste in new Module

How copy code in Sheet1 ... and paste to Sheet3 module?

Sheet1 Have a macro:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Selection.Copy
Sheets("Sheet2").Activate
ActiveSheet.Range("B1").Activate
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False
AA
End Sub

Sub AA() ''
Sheets.Add
ActiveSheet.Name = "Sheet3"

Sheet1.Select. Copy code: Private Sub Worksheet_BeforeDoubleClick(ByV... & Paste in the "Sheet3" WorkSheet_BeforeDoubleClick(B module End Sub