repeating a macro in every row (for multiple cells)

[hluk]

hi!

I have been looking around the forum and found this thread to the the closest what I am trying to achieve: http://www.excelforum.com/excel-prog...every-row.html

Basically I have two worksheets, one labeled "data" and the other labeled "calc".

For each row of "data" starting from row 2, I need to copy 5 values (columns AA, L, I, M, P) into the "calc" worksheet (cells D11, D12, H11, H12, H13) respectively.

Then the "calc" sheet automatically does the calculations and we get the result in R10 of the "calc" sheet.

Lastly this resulting value R10 needs to be copied back to the "data" sheet in column AB of each row.

I have recorded the macro doing this for the row 2 as per below:

Sub Macro1()
'
' Macro1 Macro
'

'
    Sheets("data").Select
    Range("AA2").Select
    Selection.Copy
    Sheets("calc").Select
    Range("D11").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("data").Select
    Range("L2").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("calc").Select
    Range("D12").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("data").Select
    Range("I2").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("calc").Select
    Range("H11").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("data").Select
    Range("M2").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("calc").Select
    Range("H12").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("data").Select
    Range("P2").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("calc").Select
    Range("H13").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("R10").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("data").Select
    Range("AB2").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("AA14").Select
End Sub

I have tried modifying the code to make it repeat, but no luck...

Is there an easy way to adapt what was posted in http://www.excelforum.com/excel-prog...every-row.html to suit what I am trying to do?

Thank you so much in advanced for your help!