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