Sub nnnnd()
Dim Shape1 As Shape, Shape2 As Shape

With ActiveCell
Set Shape1 = ActiveSheet.Shapes.AddShape(msoShapeOval, .Left, .Top,  50 ,  50 )
End With

With ActiveCell
Set Shape2 = ActiveSheet.Shapes.AddShape(msoShapeOval, .Left, .Top,  10 ,  10 )
End With

ActiveSheet.Shapes.Range(Array(Shape1, Shape2)).Select
    Selection.ShapeRange.Group.Select
End Sub

Sub nnnnd()
Dim qwe1 As Variant
Dim qwe2 As Variant

With ActiveCell
qwe1 = ActiveSheet.Shapes.AddShape(msoShapeOval, .Left, .Top,  50 ,  50 ).Name
End With

With ActiveCell
qwe2 = ActiveSheet.Shapes.AddShape(msoShapeOval, .Left, .Top,  10 ,  10 ).Name
End With

ActiveSheet.Shapes.Range(Array(qwe1, qwe2)).Group.Select
End Sub