#3です。お礼に関して。
エクセルのシートのＡ列のセルに順次上から詰めて画像ファイル名（出来れば拡張子も含め）を入力します。
すると
Sub test01()
d = Range("A65536").End(xlUp).Row
MsgBox d
For i = 1 To d
MsgBox Cells(i, "A")
'処理
Next i
End Sub
をテスト敵に実行すると、Ａ列に入力した内容（ファイル名）全てが順次文字列で出てきます。プログラムで、ファイル名を順次捕まえたことになります。
この文字列を、フォルダ名（一定の文字列となるように同じフォルダに画像を入れておくほうがＶＢＡが簡単になる）と」組み合わせて
画像ファイルを指定する部分に使うのです。
その都度「’処理」（これは実際のコードの象徴です）のところで書いたコード（上記では略してます。質問者が作って入れるのです）が実行されます。その処理内容は、中身は画像貼り付け処理（のコード）です。マクロの記録などが参考になります。
後、変わるのは貼り付け位置でしょう。
毎回変わるものは何か、という発想が必要です。それは
（１）画像ファイル名
（２）貼り付け位置
これをどうコードで表現するか。プログラムそのものです。
室問社が勉強すべきことです。
上記などがピントこないようなら、今回はあきらめてください。実現は勉強してからになるでしょう。
初心者だからといって、コードを作ってくれというのは、丸投げは規約違反です。
エクセルに拘らず、フリーソフトなど探せば、似たような事がプログラムレスで出来るものが有ると思いますが。
お礼
早速の回答をいただきありがとうございます。この場を借りて＃１、＃２の方にもお礼申し上げます。 過去にも似たような質問たくさんありました。色々試しましたが少し内容が合わなかったり、理解が出来ないものありで質問させていただきました。 もう少し詳しく書きますのでどなたかよろしく御願いします。 写真はピクチャーマネージャーで事前に圧縮して保存してあります。エクセルに貼り付け必要不要は印刷したもので確認し、ファイル番号を控え、貼る順番を決めております。ひとつのシートで1ページ4枚として約50枚くらいを貼り付けております。貼り付けるセルの行は連続しておりません。一枚づつ挿入する方法で作業をしておりますが、ファイル番号を控えているため、直接セルに番号を打ち込んで貼り付けができるのなら！と気づいたわけです。よろしく御願いします。