Вставка картинки в центр диапазона ячеек

Sub InsertImageIntoRange(ByVal PicturePath$, ByVal ra As Range)
    On Error Resume Next
    Dim sha As Shape
    With LoadPicture(PicturePath$)
        w! = .Width
        h! = .Height
    End With
 
    Const PADDING = 2 ' отступ от краёв ячейки
    MaxPicHeight! = ra.Height - 2 * PADDING
    MaxPicWidth! = ra.Width - 2 * PADDING
 
    wh_picture! = w / h
    wh_range! = MaxPicWidth! / MaxPicHeight!
 
    If wh_picture <= wh_range Then
        PicHeight! = MaxPicHeight!
        PicWidth! = wh_picture! * MaxPicHeight!
    Else
        PicWidth! = MaxPicWidth!
        PicHeight! = PicWidth! / wh_picture!
    End If
    'Debug.Print "pic w = " & PicWidth, "pic h = " & PicHeight

    Set sha = Me.Shapes.AddPicture(PicturePath, False, True, -1, -1, PicWidth, PicHeight)
    sha.Top = ra.Top + (ra.Height - sha.Height) / 2
    sha.Left = ra.Left + (ra.Width - sha.Width) / 2
 
    ' sha.OnAction = Me.CodeName & ".ZoomImage" 'http://ExcelVBA.ru/code/ZoomImages
End Sub

Sub InsertImageIntoRange(ByVal PicturePath$, ByVal ra As Range)
    On Error Resume Next
    Dim sha As Shape
    Const PADDING = 2 ' отступ от краев ячейки
    
    Set sha = ra.Worksheet.Shapes.AddPicture(PicturePath, False, True, -1, -1, -1, -1)
    sha.LockAspectRatio = msoTrue
    sha.Width = ra.Width - 2 * PADDING ' меняем ширину картинку
    ra.RowHeight = sha.Height + 2 * PADDING ' меняем высоту строки
    
    ' ставим картинку на место в ячейку
    sha.Top = ra.Top + (ra.Height - sha.Height) / 2
    sha.Left = ra.Left + (ra.Width - sha.Width) / 2
End Sub

sub test()
   InsertImageIntoRange "c:\folder\image1.jpg", Range("b2:d5")
end sub