VBA help to move and resize a picture from one cell to another

I have a macro to insert a photo into a specific area (J11 - M17) which works perfectly. What I need to do now is possibly insert another picture which requires to move , resize and centre to a different cell (G11 - H17). The code to insert the picture from a file is
Sub Insert_Pict_1()

Please Login or Register  to view this content.

I tried this the code below which sort of works but depending on which ratio of picture is used, it resizes outside of the range required

Please Login or Register  to view this content.

Some advise would be appreciated

Change .lockaspectratio to false?

Edit: or if you want to keep lockaspectratio on I guess you need something like:

Please Login or Register  to view this content.