Corel draw X7 macro writing

Hello All

I am new to the site and wondered if anyone can help

I have some Macros set up in X7 all working fine. I wish to make a new macro which takes a box of 125 square and changes it too 131 x 122. When I record the macro it works fine. I then draw some other shapes all un related to this 125 box. When I go to test the macro it takes all the shapes on the page and resizes all of them to total the 131 x 122mm

This is the code that Corel has recorded.

Sub Macro1()
    ' Recorded 03/11/2017
    ActiveDocument.ReferencePoint = cdrCenter
    ActivePage.Shapes.All.CreateSelection
    ActiveSelection.SetSize 5.180118, 4.92126
    ActiveSelection.SetSize 5.180118, 4.805906
End Sub

How do I code it so it can

1) make a duplicate

2) Nudge down 150mm

3) resize the object the objects on that are selected

Cheers

Chris