O problema com o seu código é
Dim SS1 As String
e Set SS1 = Range("AO24").Text
.
O tipo de dados SS1 realmente variável deve ser Intervalo e Set SS1 = Range("AO24")
.
Agora você está tentando criar um intervalo dinâmico para criar Shape, mas, nesse caso, o Excel VBA somente lê o endereço da célula e fará Shape na célula AO24.
Eu gostaria de recomendar que você use Range(Selection.Address)
para que você possa selecionar a célula onde deseja desenhar a forma.
Verifique o código abaixo escrito para ajudá-lo a criar o Shape no Active Cell.
Private Sub CommandButton24_Click()
Dim clLeft As Double
Dim clTop As Double
Dim clWidth As Double
Dim clHeight As Double
Dim cl As Range
Dim shpOval As Shape
Set cl = Range(Selection.Address)
'Set cl = Range("AO24")
clLeft = cl.Left
clTop = cl.Top
clHeight = cl.Height
clWidth = cl.Width
Set shpOval = ActiveSheet.Shapes.AddShape(msoShapeOval, clLeft, clTop, 40, 10)
Debug.Print shpOval.Left = clLeft
Debug.Print shpOval.Top = clTop
End Sub
Espero que isso ajude você.