Insert Excel Shape at Active Cell - Final help needed Please

Hi I have this little piece of code that inserts a circle into my active worksheet, but I'm stuck as to how I make it appear at / on the currently activecell.

Really grateful if anyone could advise please.

Thanks

Sub shapes()
Dim wks As Worksheet
    Dim shape1 As Shape
        
    Set wks = ActiveSheet
    Set shape1 = wks.shapes.AddShape(msoShapeOval, 100, 100, 80, 80)
    
    With shape1
        .Line.ForeColor.RGB = RGB(255, 0, 0)
        .Fill.Transparency = 1
    End With
        
End Sub