indsætte mange formler i et ark

Jeg har fået konverteret en makro fra en formel til vba.
Denne formel skal jeg have kørt ca. 1000 gange/ i 100 celler, hvilket gør den temmelig tung at have kørende, hvis den blev lavet som en almindelig formel.

I kolonne A står der nr. 1 til 1000
Jeg vil meget gerne have indsat denne formel i kolonne C
Den skal gøre det samme i alle formlerne/cellerne 1-1000, på nær
i dette område i formlen:
'2008'!$B$2:B$16430)=$A10

a10 refererer til tallet 1-1000, så det jeg skal bruge at den ændrer a10 i linje 10
til a11 i line 11
og a12 i linje 12
og a13 i linje 13 osv.

Man kan jo så meget med....
For 1 to 1000......
Men jeg ved ikke om det kan lade sige gøre her.

Dette er måske ikke den nemmeste opgave, men jeg har ikke mere de 50 point jeg har udlovet, desværre.
Sub Makro1()
Sheets("igangvspec").Range("a1").Select
y = Evaluate("=SUMPRODUCT(((('2008'!$C$2:$C$16430)>=$B$1)*(('2008'!$C$2:$C$16430)<=$B$2)*(('2008'!$F$2:$F$16430)=$C$1)*(('2008'!$B$2:B$16430)=$A10)*'2008'!$Q$2:$Q$16430))")
Sheets("igangvspec").Range("c10") = y
End Sub