使用不同的名称将图片复制并粘贴到工作表中的相同位置

Question

我有一张包含不同人的下拉菜单的表。

选择后，他们输入密码，然后工作表插入图片。

现在我需要复制工作表并重命名并运行相同的宏。当我这样做时，图片会粘贴到原始表格中。

用于激活密码宏的宏（从下拉列表中选择）

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, Range("A21")) Is Nothing Then

    Select Case Range("A21")
        Case "M_Reeve": M_Reeve
        Case "B_Heal": B_Heal
    End Select
End If
End Sub

密码宏：

Sub M_Reeve()

'Create the password message box

    Dim Answer As String
        Answer = InputBox("Input Operator Stamp Password", "Password")

        If Answer = "Martin" Then

           'Run the copy and paste "Stamp1" macro from module 2

        Stamp1

            'return an error if wrong password

        Else: MsgBox "Wrong password", vbCritical + vbOKCancel, "Incorrect Password"
        End If      
End Sub

要粘贴图片的宏：

Sub Stamp1()

' Stamp1 Macro
'
    Sheets("Stamps").Select
    ActiveSheet.Shapes.Range(Array("MReeve")).Select

    Selection.Copy
    Sheets("Stock Removal").Select
    Range("A16").Select
    ActiveSheet.Paste
End Sub

我认为粘贴导致问题的图片是宏。

注意：要粘贴的图片的工作表名称将始终不同，因此我需要粘贴到活动工作表中。