我添加了一个按钮来复制活动工作表并添加到活动工作簿的末尾，这工作正常，但它不复制活动工作表VBA代码。

Sub CopySheet()
'When button is press on the NEW sheet copies active worksheet to end of active workbook 
If ActiveSheet.Name Like "NEW**" Then
ActiveSheet.Copy Before:=Worksheets(Sheets.Count)
On Error Resume Next
End If
End Sub

复制工作表时要复制到的代码。

Private Sub Worksheet_Change(ByVal Target As Range)
'if PO number is updated the Active NEW sheet date is update to today's date.
If Not Intersect(Target, Range("d5")) Is Nothing Then
    Range("a8").Value = Now()
End If
End Sub

不复制Excel工作表上的VBA代码