Pegado Especial

Hola

Tengo un problemita, lo que pasa es que genero muchos
reportes en los cuales utilizo Subtotales, y para que los
subtotales resalten, les pongo un formato diferente, para
esto lo que hago es, oprimo el boton de subtotales (2) para
que oculte todos los registros y deje sololos subtotales,
le pongo formato al primero y luego en el siguiente
subtotal utilizaba el pegado especial para pegar los
Formatos y presionaba Flecha abajo y luego F4 y Flecha
abajo y F4... y asi hasta que llegaba al final, quiero
hacer una macro en la que yo le indique cuantas veces debe
presionar la flecha abajo y luego Pegado especial, y lo que
hice ayer fue:

cCiclo = Val(InputBox("Cuantas veces se repite el Pegado",
"Repetir"))
If cCiclo > 0 Then
For x = 0 To cCiclo
SendKeys "{DOWN}"
Selection.PasteSpecial Paste:=xlFormats,
Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Next
End If

Ayer lo hacía bien, pero ahora que intente utilizarlo, me
marca fallo el metodo PasteSpecial.

El codigo de Pegado especial lo obtuve grabando una macro y
luego copie el codigo a mi ciclo, no sé si lo este haciendo
bien o tal vez sepan otra forma de hacerlo.

Muchas gracias!!!