I want make an addition on the same column and
alternating rows. The column should also make an
addition during the end of the column. I try with this
but I am not succesfull?

Sub Macro1()
'
' Keyboard Shortcut: Ctrl+w
X = 3
For y = 1 To 7
For inc = 1 To 9
Cells(y, X).Select
Cells(y + 1, X) = Cells(y + 2, X) + Cells(y +
3, X)
'Selection.Delete Shift:=xlUp
Next inc
Next y
End Sub