单元格区域跳转计算的问题

qweasdzxc123

代码如下：
Sub 按钮1_单击()
Dim a, b, i, j As Integer
    a = Val(InputBox("请输入计算次数："))
    Range("A10").Value = 1000
    For i = 11 To a + i
        Cells(i, 1).Value = Cells(i - 1, 1) + 400
    Next i
End Sub
假定输入200次，这这段代码运行的结果：是从A10单元格开始连续计算200次数据。
我要的目的是：从A10单元格开始到A28单元格计算18次，然后间隔10行跳转到A38单元格向下再次计算18次，在间隔10行跳转到A66单元格向下继续计算18次，以此类推，直到200次计算完成，请问下：代码如何修改？谢谢！