Sub Start()
    Dim OrigSelection As ShapeRange
    Set OrigSelection = ActiveSelectionRange
    Dim dup1 As ShapeRange
    Set dup1 = OrigSelection.Duplicate(, -2.165354)
    dup1.Move 0#, -y
    dup1.OrderToFront
    Dim dup2 As ShapeRange
    Set dup2 = dup1.Duplicate(, -2.165354)
    dup2.Move 0#, -y
    dup2.OrderToFront
    Dim dup3 As ShapeRange
    Set dup3 = dup2.Duplicate(, -2.165354)
    dup3.Move 0#, -y
    dup3.OrderToFront
    Dim dup4 As ShapeRange
    Set dup4 = dup3.Duplicate(, -2.165354)
    dup4.Move 0#, -y
    dup4.OrderToFront
        
    ActiveDocument.AddToSelection dup1, dup2, dup3, dup4

    Set s1 = ActiveSelection.Group.Duplicate(3.543307)

    Set OrigSelection = ActiveSelectionRange
    ActiveLayer.Shapes(1).AddToSelection

    Set s1 = ActiveSelection.Group
End Sub