Abhijat;
Thanks for your quick response and the code. However, I ran it and the only
row that is working properly is the "ROW 5". In others words the formula
written in the code is just taking the text of the line 5. the rest do not
match the text given in the the column "B2".
Could you please tell me what I did wrong?

Thanks.
Maperalia

"Abhijat" wrote:

Try this sub procedure on your active sheet


Sub Calculation()
For i = 1 To 6
Range("F" & i + 1).Select
ActiveCell.FormulaR1C1 = "=SUM(RC[-3]:RC[-1])"
Next i
Range("H2").Select
ActiveCell.FormulaR1C1 = "=INDEX(RC[-6]:R[6]C[-2],MATCH(RC[-1],RC
[-2]:R[6]C[-2]),1)"
End Sub