Macro for grouping objects located in a specific area of the page

This is one of the possible solutions to your problem, use the logic to implement it in VBA if applicable, in this example it is written in C#, but I used Corel x8, I don't have x6, there may be something that doesn't work, like here community.coreldraw.com/.../api the minimum version for consultation is X7, you or someone needs to test on X6

[CgsAddInMacro]
     public void GroupByRegion()
     {
         double[] increments = { 6.5, 5.5, 5.5, 6.5 };
         double increment;
         corelApp.EventsEnabled = false;
         corelApp.Optimization = true;
         corelApp.ActiveDocument.BeginCommandGroup("group");
         for (int i = 1; i <= corelApp.ActiveDocument.Pages.Count; i++)
         {
             increment = 0;
             for (int j = 0; j <increments.Length; j++) {
 
                 corelApp.ActiveDocument.Pages[i].SelectShapesFromRectangle(
                     corelApp.ActiveDocument.Pages[i].LeftX + increment,
                     corelApp.ActiveDocument.Pages[i].TopY,
                     corelApp.ActiveDocument.Pages[i].LeftX + (increment += increments[j]),
                     corelApp.ActiveDocument.Pages[i].BottomY,
                     false).Group();
             }
         }
         corelApp.ActiveDocument.EndCommandGroup();
         corelApp.EventsEnabled = true;
         corelApp.Optimization = false;
         corelApp.Refresh();
     }

Try this in VBA 

Sub FourGroupsEachPage()
    Dim d As Document, p As Page, s As Shape
    Dim x1 As Double, x2 As Double, i%

    Set d = ActiveDocument
    For Each p In d.Pages
        For i = 1 To 4
            x1 = Choose(i, 0, 6.5, 12, 17.5, 24)
            x2 = Choose(i + 1, 0, 6.5, 12, 17.5, 24)
            Set s = p.SelectShapesFromRectangle(x1, p.BottomY, x2, p.TopY, False).Group
        Next i
    Next p
End Sub

I have many laser engraving clients. Write to me at tv.softlv@gmail.com if you need anything else.
Taras