Присвоение ячейке значения, в зависимости от того, в какой области будет находиться рисунок

Sub ВыводКоординатАвтофигур()
    Dim sh As Worksheet, sha As Shape
    For Each sh In ThisWorkbook.Worksheets
        Debug.Print "Лист «" & sh.Name & "» - количество фигур: " & sh.Shapes.Count
        For Each sha In sh.Shapes
            n = n + 1: Debug.Print "   фигура №" & n & " с названием «" & sha.Name & "»"
            Debug.Print "      Координаты левого верхнего угла: X=" & sha.Left & "; Y=" & sha.Top
        Next sha
        Debug.Print "=== Конец просмотра листа «" & sh.Name & "» ===" & vbNewLine
    Next sh
End Sub

Sub CoordinatesSHAPES()
Dim sh As Worksheet, sha As Shape, mARR(), i&
   Set sh = ActiveSheet:   ReDim mARR(1 To sh.Shapes.Count + 1, 1 To 3): i = 1
      If sh.Shapes.Count = 0 Then MsgBox "No match":  Exit Sub
   mARR(i, 1) = Space(4) & "NAME": mARR(i, 2) = Space(7) & "X": mARR(i, 3) = Space(7) & "Y"
      With sh
         For Each sha In sh.Shapes
            i = i + 1:     mARR(i, 1) = sha.Name
            mARR(i, 2) = Application.Round(sha.Left, 7)
            mARR(i, 3) = Application.Round(sha.Top, 7)
         Next
      End With
   [a1].Resize(UBound(mARR, 1), UBound(mARR, 2)).Value = mARR
End Sub