Try this macro.

Option Explicit

Sub Macro1()
Dim Cel             As Range
Dim WS              As Worksheet
Dim ConstantRange   As Range
Dim FormulaRange    As Range
Dim Shp             As Shape
Set WS = Sheets("Sheet1")
    On Error Resume Next
    Set ConstantRange = WS.UsedRange.SpecialCells(xlCellTypeConstants, 23)
    Set FormulaRange = WS.UsedRange.SpecialCells(xlCellTypeFormulas, 23)
    On Error GoTo 0
If Not ConstantRange Is Nothing Then
        For Each Cel In ConstantRange
            WS.Shapes("Picture 4840").Copy
            WS.Paste
            Set Shp = WS.Shapes(WS.Shapes.Count)
            Shp.Top = Cel.Top
            Shp.Left = Cel.Left + Cel.Width / 2 - Shp.Width / 2
        Next Cel
    End If
If Not FormulaRange Is Nothing Then
        For Each Cel In FormulaRange
            WS.Shapes("Picture 4840").Copy
            WS.Paste
            Set Shp = WS.Shapes(WS.Shapes.Count)
            Shp.Top = Cel.Top
            Shp.Left = Cel.Left + Cel.Width / 2 - Shp.Width / 2
        Next Cel
    End If
Set ConstantRange = Nothing
    Set FormulaRange = Nothing
    Set WS = Nothing
    Set Shp = Nothing
End Sub