Вставить несколько картинок в одну ячейку

Sub PicInsertOne()
    Dim img, img1 As Picture, T, L, W, H As Single
    Dim CellX As Single
    Dim ord As String
    
    Pic = PicView3.Label11.Caption
    
    Do Until IsEmpty(ActiveCell)
        On Error Resume Next
        If Len(Dir([Pic])) = 0 Then
            Range("G").ActiveCell.Offset(1, 0).Select
            Exit Sub
        Else
            Application.ScreenUpdating = False
            Range("G").ActiveCell.Offset(1, 0).Select
 
            ActiveCell.ColumnWidth = 25
            ActiveCell.RowHeight = 77
            Const defHeight = 100
            Const defMult = 0.45
            ActiveCell.Value = ""
 
            With ActiveCell
                L = .MergeArea.Left
                T = .MergeArea.Top
                W = .MergeArea.Width
                H = .MergeArea.Height
                CellX = H / W
            End With
            On Error Resume Next
            Set img = ActiveSheet.Pictures.Insert(Pic)
            If Err <> 0 Then
                Err.Clear
            Else
                With img
                    .LockAspectRatio = True
                    .Placement = xlMove
                    If .Height / .Width > CellX Then
                        .Height = H - 4
                        .Left = L + (W - .Width) / 2
                        .Top = T + 2
                    Else
                        .Width = W - 4
                        .Top = T + (H - .Height) / 2
                        .Left = L + 2
                    End If
                    L = .Left
                    T = .Top
                    H = .Height
                    W = .Width
                    .Width = .Width
                End With
 
            End If
            Set img1 = ActiveSheet.Shapes.AddPicture(Pic, False, True, L, T, W, H)
            img.Delete
            On Error GoTo 0
Label1:
            ActiveCell.Offset(2, 0).Select
        End If
        Pic = PicView3.Label11.Caption
    Loop
    Application.StatusBar = False
    Set img = Nothing
    Set img1 = Nothing
End Sub