Hi there, just to add, here's an example of the Macro I recorded to achieve this:
Sub Move_images()'
' Move_images Macro
'


'
    ActiveSheet.Shapes.Range(Array("image18.png")).Select
    Selection.Copy
    Sheets("Sheet1").Select
    Range("D8").Select
    ActiveSheet.Paste
    Selection.ShapeRange.ScaleWidth 0.63, msoFalse, msoScaleFromTopLeft
    Selection.ShapeRange.ScaleHeight 0.48, msoFalse, msoScaleFromTopLeft
    Sheets("DATABASE").Select
    ActiveSheet.Shapes.Range(Array("image25.png")).Select
    Selection.Copy
    Sheets("Sheet1").Select
    Range("L8").Select
    ActiveSheet.Paste
    Selection.ShapeRange.ScaleWidth 0.63, msoFalse, msoScaleFromTopLeft
    Selection.ShapeRange.ScaleHeight 0.47, msoFalse, msoScaleFromTopLeft
    Sheets("DATABASE").Select
    ActiveSheet.Shapes.Range(Array("image8.jpg")).Select
    Selection.Copy
    Sheets("Sheet1").Select
    Range("T8").Select
    ActiveSheet.Paste
    Selection.ShapeRange.ScaleWidth 0.645, msoFalse, msoScaleFromTopLeft
    Selection.ShapeRange.ScaleHeight 0.48, msoFalse, msoScaleFromTopLeft
    Sheets("DATABASE").Select
    ActiveWindow.SmallScroll Down:=1
    ActiveSheet.Shapes.Range(Array("image21.png")).Select
    Selection.Copy
    Sheets("Sheet1").Select
    Range("AB8").Select
    ActiveSheet.Paste
    Selection.ShapeRange.ScaleWidth 0.64, msoFalse, msoScaleFromTopLeft
    Selection.ShapeRange.ScaleHeight 0.475, msoFalse, msoScaleFromTopLeft
    Sheets("DATABASE").Select
    ActiveWindow.SmallScroll Down:=1
    ActiveSheet.Shapes.Range(Array("image22.png")).Select
    Selection.Copy
    Sheets("Sheet1").Select
    Range("D30").Select
    ActiveSheet.Paste
    ActiveWindow.SmallScroll Down:=11
    Selection.ShapeRange.ScaleWidth 0.635, msoFalse, msoScaleFromTopLeft
    Selection.ShapeRange.ScaleHeight 0.475, msoFalse, msoScaleFromTopLeft
    Sheets("DATABASE").Select
    ActiveWindow.SmallScroll Down:=2
    ActiveSheet.Shapes.Range(Array("image23.png")).Select
    Selection.Copy
    Sheets("Sheet1").Select
    Range("L30").Select
    ActiveSheet.Paste
    Selection.ShapeRange.ScaleWidth 0.6331658291, msoFalse, msoScaleFromTopLeft
    Selection.ShapeRange.ScaleHeight 0.4773869347, msoFalse, msoScaleFromTopLeft
    Sheets("DATABASE").Select
    ActiveSheet.Shapes.Range(Array("image16.jpg")).Select
    Selection.Copy
    Sheets("Sheet1").Select
    Range("T30").Select
    ActiveSheet.Paste
    Selection.ShapeRange.ScaleWidth 0.63, msoFalse, msoScaleFromTopLeft
    Selection.ShapeRange.ScaleHeight 0.495, msoFalse, msoScaleFromTopLeft
    Sheets("DATABASE").Select
    ActiveWindow.SmallScroll Down:=1
    ActiveSheet.Shapes.Range(Array("image19.png")).Select
    Selection.Copy
    Sheets("Sheet1").Select
    Range("AB30").Select
    ActiveSheet.Paste
    Selection.ShapeRange.ScaleWidth 0.62, msoFalse, msoScaleFromTopLeft
    Selection.ShapeRange.ScaleHeight 0.485, msoFalse, msoScaleFromTopLeft
    ActiveWindow.SmallScroll Down:=-11
End Sub
Hope it helps specify what I'm struggling to understand and build upon.