Как программно сгруппировать набор фигур в excel 2007 vba?

Я перебираю данные на листе "Электрические таблицы" и создаю фигуры на листе "Фигуры". После создания фигур я хотел бы программно сгруппировать их. Однако я не могу понять правильный синтаксис. Фигуры там, выделены, и если я нажимаю кнопку группы, они идеально группируются. Однако с помощью следующего кода я получаю

Ошибка выполнения 438 Объект не поддерживает этот метод или свойство.

Я основываю этот код на примерах vba из Интернета - я не сильный программист vba. Как правильно это сделать? Я работаю с excel 2007, и переключение версий Excel не вариант.

проблемный фрагмент:

Set shapeSheet = Worksheets("Shapes")
With shapeSheet
 Selection.ShapeRange.Group.Select
End With

Контекст:

Dim shapeSheet As Worksheet
Dim tableSheet As Worksheet
Dim shpGroup As Shape

Set shapeSheet = Worksheets("Shapes")
Set tableSheet = Worksheets("Electrical Tables")


With tableSheet
    For Each oRow In Selection.Rows
            rowCount = rowCount + 1
            Set box1 = shapeSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, 50, 50 + ((rowCount - 1) * 14), 115, 14)
            box1.Select (False)
            Set box1Frame = box1.TextFrame
            Set box2 = shapeSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, 165, 50 + ((rowCount - 1) * 14), 40, 14)
            box2.Select (False)
            Set box2Frame = box2.TextFrame
     Next
End With
Set shapeSheet = Worksheets("Shapes")
With shapeSheet
 Selection.ShapeRange.Group.Select
End With