Insert Filename Before Image In Macro

I have a macro as follows which allows me to select multiple images and it inserts them into excel. Firstly it deletes previous images.

It also increases the size of the rows to 250 and column to 100 to make the image size standard.

I have it skipping every second row which I intend to add the filename of the image.

What is it currently doing is adding the first filename (including path) in A5 and then not showing the next filenames.

I am using ActiveCell.FormulaR1C1 = PicList to generate the filename.

How to get the remaining names? Also I would only like the filename if possible and not the full path.

Sub InsertPictures()
Dim filename As Variant
Dim PicList() As Variant
Dim PicFormat As String
Dim Rng As Range
Dim sShape As Shape
Dim shp As Shape

[Code]...

Im sure my Macro is probably overkill for what I am trying to do however I have merged about 4 macros I have found together.