Moving the shape

Hello,
i'm trying to moving the shape to page number 2 ,,, how i can do it ?

my code is

Option Explicit

Sub Document_Open()
Application.OnTime When:=Now + TimeValue("00:00:01"), Name:="ShapeMover"


End Sub

Sub ShapeMover()
Dim oSH As Shape

Beep

Set oSH = ActiveDocument.Shapes(1)


oSH.IncrementRotation 10


Application.OnTime When:=Now + TimeValue("00:00:01"), Name:="ShapeMover"
End Sub