Add formula to multible cells !

Hi this one feels it should be easy but im going cracy here.

I have a overview page and when i press a button i want formulas to be added to specific cell.
Im using this code to add the formula to the cell:

[A1].FormulaLocal = "=SUMMA(Sheet2!A1)"

When i press the button i want the code to add it to Range A1:A1000
and to save me some time i wonder if its any way to add it directly to the range and not like this:

[A1].FormulaLocal = "=SUMMA(Sheet2!A1)"
[A2].FormulaLocal = "=SUMMA(Sheet2!A2)"
[A3].FormulaLocal = "=SUMMA(Sheet2!A3)"
Etc.

I know how to add the formula to a range of cells but in this case the range in the formula has to change
as above.

Petter

try this

Sub aa()
Dim x As Long
For x = 1 To 1000
Cells(x, 1).FormulaLocal = "=SUMMA(Sheet2!A" & x & ")"
Next
End Sub

Could you send the small sample of wokrbook?

So this should be ok

Sub aa()
Dim x As Long
Dim last As Long
last = Worksheets("Blad2").Cells(Rows.Count, 1).End(xlUp).Row

For x = 1 To last
Cells(x, 1).FormulaLocal = "=(Blad2!A" & x & ")"
Next
End Sub

In Tom's 4th line
even these will work

Range("a" & x).Formula = "=summa(sheet1!a" & x & ")"

or

Evaluate("a" & x) = "=summa(sheet1!a" & x & ")"

I'd prefer:

Sub snb()
  [Blad1!A1:A1000] = [index("=Blad2!A" & row(1:1000),)]
End Sub