Create a code vba to collect the value of a specific cell from two different columns and put the result in another column

[Dayski147]

I want to calculate the sum of each cell from the first column with the corresponding cell in the second column and put the result in the third column....and so only the end of the column

Example:
code vba:
Range ("J11")=SIERREUR(SOMME(H11:I11)/2;"")
Range ("J12")=SIERREUR(SOMME(H12:I12)/2;"")
Range ("J13")=SIERREUR(SOMME(H13:I13)/2;"")

And in the case that the column cells are empty, it does not put the formula
to the end of the column

Please perform the same task on all colored columns

Dropbox - File Deleted - Simplify your life

www.dropbox.com

 

[bebo021999]

Sub delete()
For i = 8 To 49 Step 3
    Range(Cells(11, i + 2), Cells(55, i + 2)).ClearContents
Next
End Sub

 

[Dayski147]

Thank you all how can I make it to the last cell written in column b

 

[bebo021999]

code for generate value:

Sub test()
lr = Cells(Rows.Count, "J").End(xlUp).Row
For i = 8 To 49 Step 3
    Set u = Range(Cells(11, i + 2), Cells(lr, i + 2))
    u.Value = Evaluate("=(" & Range(Cells(11, i), Cells(lr, i)).Address & "+ " & Range(Cells(11, i + 1), Cells(lr, i + 1)).Address & ")/2")
Next
End Sub

for delete

Sub test()
lr = Cells(Rows.Count, "J").End(xlUp).Row
For i = 8 To 49 Step 3
      Range(Cells(11, i + 2), Cells(lr, i + 2)).ClearContents
Next
End Sub