Cambio de hoja

Hola Gustavo tengo una pregunta quisiera que me pudieras ayudar con esto. Lo q
intento es sacar 2 datos de varias hojas de excel y lo que hice es
lo siguiente:
Sub horas()
For X = 451 To 557
cont = Sheet1.Cells(1, 10)
Sheet1.Cells(cont, 1) = HojaX.Cells(25, 1)
Sheet1.Cells(cont, 2) = HojaX.Cells(25, 2)
cont = cont + 1
Cells(1, 10) = cont
Next i
End Sub
Pero no pasa de hoja, y me aparece error, Si me pudieras ayudar pooooorfa GRACIAS