Moving Objects with VBA

I want to move objects with vba such that all objects in page 8 will move to page 4, all objects in page 7 to 3, ll objects in page 6 to 2. I need a simple line of code to do this?

Parents
No Data
Reply Children
No Data