VBA autoshape arrows to show performance

Morning all. I'm trying to use VBA to generate autoshape arrows to track changes in values.

Something allong the lines of Column B (Jans data) C (Febs Data) E (autoshape arrow, green up, for improvement, or red downwards for a worsening).

The problem I'm having is postioning my autoshapes. The only way I can do it at present is to keep all columns and rows a standard width, and position using multiples of those.

Is there anyway to set the autoshape to the cell height and width, and position it within the boundries of the cell? This way I don't have to worry about rewiting my code every time I change a cell width?

Which version of Excel are you using?

The cell has properties you can use to size you shape.

    With ActiveCell
        ActiveSheet.Shapes.AddShape msoShapeUpArrow, .Left, .Top, .Width, .Height
    End With

I'm on excel 2003.

I'm using those values to position the autoshapes at the moment, but if I change the width of a cell I have to manuallly move the "Left" value, and likewise with the height values for row heigh changes.

I was thinking I could do a sum of the heights of all the previous cells (and the same for the width), but it seems a clumbersome way of doing it, and hoped there might be a simple way to get the top left position of a cell?

post an example workbook with your code.

include an example of how the arrow should look

Sub arrow()
For Each c In Range("E13:E14")

    Select Case c.Value
    
Case Is > 0

ActiveSheet.Shapes.AddShape(msoShapeUpArrow, 240.63, 153 + j, 6#, 12.75). _
        Select
Case Is < 0

ActiveSheet.Shapes.AddShape(msoShapeDownArrow, 240.63, 153 + j, 6#, 12.75). _
        Select

Case Is = 0
c.Offset(0, 1).Value = 0

End Select
j = j + 12.75
Next c
Cells(1, 1).Select

End Sub

I've done a simplified snippet, (refers attached example). The problem is I want the left and top positions determined by the position of F13 and F14 etc not just manually typed.