Excel - Poner ceros en un rango de celdas

Hola, necesito poner ceros en un rango de excel desde visual basic, lo hice de la siguiente forma pero se que no es óptimo:

Range("C8").Select

For i = 1 To 25
ActiveCell.Value = 0
ActiveCell.Offset(0, 1).Select
Next i

Range("C9").Select

For i = 1 To 25
ActiveCell.Value = 0
ActiveCell.Offset(0, 1).Select
Next i

Range("C10").Select

For i = 1 To 25
ActiveCell.Value = 0
ActiveCell.Offset(0, 1).Select
Next i

Agradecería mucho su ayuda.

tan simple como
[C8:C10] = 0

Saludos desde Baires, JuanC

Muchas gracias, el comando se ejecuta en mucho menos de la mitad del tiempo que con el algoritmo anterior.