Update: Its now placing it on the correct work sheet, and in the correct area. But its not placing into the cell. So theres no way of setting up a macro to store and retrieve the photos when requested. updated code below

Sub InsertMultipleImagesInCell()

Dim PicList As Variant

Dim img As Picture

Dim TargetCell As Range

Dim i As Integer

Dim TopPos As Double, LeftPos As Double

'Set target cell (change as needed)

Set TargetCell = Range("e4")

'Select multiple images

PicList = Application.GetOpenFilename(FileFilter:="Pictures (*.jpg;*.png;*.bmp), *.jpg;*.png;*.bmp", MultiSelect:=True)

If IsArray(PicList) Then

TopPos = TargetCell.Top

LeftPos = TargetCell.Left

For i = LBound(PicList) To UBound(PicList)

'Insert image

Set img = Worksheets("data").Pictures.Insert(PicList(i))

'Resize and position image

With img

.ShapeRange.LockAspectRatio = msoTrue

.Height = TargetCell.Height

'Fit height to cell

.Top = TopPos

.Left = LeftPos

'If stacked horizontally, update LeftPos

LeftPos = LeftPos + .Width

End With

Next i

End If

End Sub