Insert Chosen Pictures To Every Nth Row

I need to insert multiple images into a worksheet every 45 rows in and a specific column. I have sourced from other threads a means to insert multiple images but they are all inserted in the one cell.

What I require is the means to either place them directly into specific cells or move them to the correct cells once in the worksheet.

As you will see I am also attempting to resize the images once they have been inserted.

Below is the code I have thus far.


Sub Insert_Pict()

Dim Pict As Variant
Dim ImgFileFormat As String
Dim PictCell As Range
Dim Ans As Integer
Dim newPicture As Shape