excel中的非连续单元格累加求和有关问题请问

excel中的非连续单元格累加求和问题请教
新来乍到请关照，请高手指教一个简单的问题


以前学过一点点C忘光了，工作需要做个表格，要有累加计算，想自己做个宏的按钮控制，行和列的号如下两行数，这个程序要怎么写才能实现这个循环？请懂的人教教啊，最好写详细点，对VBA我是一点不懂


Dim  x, y As Byte


让x遍历 {4,6,8,10,12,14}
    让y遍历 {5,6,11,21,22,24,25}
    Cells(x, y) = Cells(x, y) + Cells(x, y-1)
    


MsgBox "计算完成"

------解决方案--------------------

Sub test()

Dim xArr

Dim yArr

xArr = Array(4, 6, 8, 10, 12, 14)

yArr = Array(5, 6, 11, 21, 22, 24, 25)


For Each x In xArr

    For Each y In yArr

        Cells(x, y) = Cells(x, y) + Cells(x, y - 1)

    Next y

Next x

MsgBox "计算完成"

End Sub