主题：求助：如何将通过表A用代码求出的值输入到另一个表B

Tables("表A").sort = "编号"
Dim v0 As Integer = 1
Dim i As Integer
For i = (i - 9) To Tables("表A").Rows.count - 1
    If i > Tables("表A").Rows.count - 10 Then
        If (Tables("表A").Rows(i - 1)("数量1") + Tables("表A").Rows(i)("数量1")) Mod 2 = 0 Then
            v0 = v0
        Else
            v0 = v0 +1
        End If
    End If
Next

我通过上面的代码求出了v0的值，现在的问题是：用什么代码来实现将v0的值输入到表B的[数量A]列，刚开始我太菜了，拜托老师了。。。