Sub moveToGroup(OrigineShape As Shape, DestinationGroup As Shape)


End Sub

Sub moveToGroup(OrigineShape As Shape, DestinationGroup As Shape)
    OrigineShape.Parent = DestinationGroup
End Sub