Sub InsertAnFitImagesInMergedCells()
Dim cellAddresses As Variant
Dim cellAddress As Variant
Dim imgFile As Variant
Dim pic As Picture
Dim i As Long
Dim cell As Range
Dim mergedWidth As Double
Dim mergedHeight As Double
cellAddresses = Array("B5:L29", "B31:L55", "B64:L86", "B88:L112")
With Application.FileDialog(msoFileDialogFilePicker)
.Title = "Select Image Files"
.Filters.Add "Image Files", "*.jpg; *.jpeg; *.png; *.gif; *.bmp", 1
.AllowMultiSelect = True
If .Show = -1 Then
For i = 1 To .SelectedItems.Count
cellAddress = cellAddresses(i - 1)
Set cell = ThisWorkbook.Sheets("Snaps").Range(cellAddress)
mergedWidth = cell.Width
mergedHeight = cell.Height
Set pic = cell.Parent.Pictures.Insert(.SelectedItems(i))
pic.ShapeRange.LockAspectRatio = msoFalse
pic.Width = mergedWidth
pic.Height = mergedHeight
pic.Left = cell.Left
pic.Top = cell.Top
Next i
End If
End With
End Sub