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

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

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