Small vba code required

I want my selection to reduce 4 mm from page size. for example my page size is 100*100mm and my design is 99*99mm or 150*150mm. I want my selection to reduce 4mm and after reducing it automatically become 96*96mm and then group everything on the current page and also place center on the page.

Parents
No Data
Reply Children
No Data