Problemer med makro til kopierin af billede

Troede det virkede, men det gør det desværre ikke

Koden er således
Private Sub CommandButton2_Click()
' kode der overfører data til nyeste version til pakkeriet.
'[C10] er den celle jeg har kundenummer i
    Workbooks.Open Filename:="H:\Pakkeinstruktioner\instruktion\" & [C10] & ".xls"   
    Windows([C10] & ".xls").Activate
    Sheets("Nyeste version").Activate
    ActiveSheet.Unprotect
   
    For Each pic In Sheets("Nyeste version").Shapes    ' sletter alle billeder i arket
        pic.Delete
    Next
   
    ThisWorkbook.Sheets("NY version").Range("A1:g200").Copy Sheets("Nyeste version").Range("A1")
   
   

   
    'ThisWorkbook.Sheets("NY version").Shapes("Billede 1").Copy ' navnet på  billede
    'ActiveSheet.Range("B55").Select ' placerer øverste venstre hjørne ved G10, ret til din placering
  ' ActiveSheet.Paste

            ActiveSheet.Protect Password:="123"
    Application.CutCopyMode = False
    ActiveWorkbook.Close savechanges:=True
End Sub



Uden denne del
'ThisWorkbook.Sheets("NY version").Shapes("Billede 1").Copy ' navnet på  billede
    'ActiveSheet.Range("B55").Select ' placerer ved B55
  ' ActiveSheet.Paste
Sker der ikke noget.

sætter jeg dog koden ind, kommer billedet dobbelt

Når jeg så derefter blanker koden igen så er der kun et billede.

????? Havd gør jeg forkert. Det bedste ville være hvis den bare tog en kopi af hele arket uden makroer og uden knapper, men med billedet. Men det har jeg ikke kunnet få til at virke overhovedet. Så det her er også super bare den kunne tage billedet korrekt med over. Og det er den del der gives point for.

Tillægsspm:
En anden ting er også at hvis jeg skal sætte et nyt billede ind skal manuelt ændre det til billede 1. Er der en bedre måde.

LN