VBA Copy paste Images from one cell to another cell on a different sheet

[muhammad susanto]

hi all...

i have vba code to copy paste Images from one cell to another cell on a different sheet..
i want how to modify that code with criteria:
1. my destination or placing photo in Sheet1 cell N36:O36 down. My database photo in sheets "hitung1, hitung2, hitung3....photo always consistent in cell D9:E9.
2. how to copy paste photo from sheet "hitung1,hitung2, etc...to Sheet1 in range N36:O36 down..
here this code :

Sub copyimage2()
       'Activate the sheet 1
    ThisWorkbook.Sheets(1).Activate
   
    'Select Range ...
    ThisWorkbook.Sheets(1).Range(".....").Select
   
    'Copy the image and all other values
    Selection.Copy
   
    'Activate the sheet 2
    ThisWorkbook.Sheets(2).Activate
   
    'Select the target cell ...
    ThisWorkbook.Sheets(2).Range(".......").Select
   
    'Paste the data
    ThisWorkbook.Sheets(2).Paste
   
    End Sub

any help, greatly appreciated..
.sst

 

[muhammad susanto]

Attachment file

 

[Fluff]

Cross posted
How many times do you have to be told?
Please supply all links.

 

[muhammad susanto]

Copy Photo Between Two Sheet then Picture Auto Fit (Resize) in Cell Target

 

[Fluff]

Please supply ALL links.

 

[muhammad susanto]

VBA Copy paste Images from one cell to another cell on a different sheet
It,s enough.

 

[Fluff]

Thank you. In future please ensure you supply ALL links, without having to be told.