帮我修改一下VBA代码，实现点击按钮时i自动加一

Sub 按钮1_Click()
Dim c As Integer, d As Integer, a As Integer, b As Integer, e As Integer, f As Integer, i As Integer
For i = 2 To 9 “每点击一下按钮9就加一变成10，11，12以此内推这个地方要怎样改呀，谢谢！
c = Sheets("sheet1").Range("A" & i).Value
f = Str(c)
If (Val(f) Mod 2 <> 0) Then
Sheets("sheet1").Range("B" & i) = "单"
Sheets("sheet1").Range("B" & i).Font.Color = RGB(0, 0, 139)
Sheets("sheet1").Range("D" & i) = "单"
Sheets("sheet1").Range("D" & i).Font.Color = RGB(0, 0, 139)
Sheets("sheet1").Range("F" & i) = "单"
Sheets("sheet1").Range("F" & i).Font.Color = RGB(0, 0, 139)
Sheets("sheet1").Range("H" & i) = "单"
Sheets("sheet1").Range("H" & i).Font.Color = RGB(0, 0, 139)
ElseIf (Val(a) Mod 2 = 0) Then
Sheets("sheet1").Range("B" & i) = "双"
Sheets("sheet1").Range("B" & i).Font.Color = RGB(139, 69, 0)
Sheets("sheet1").Range("D" & i) = "双"
Sheets("sheet1").Range("D" & i).Font.Color = RGB(139, 69, 0)
Sheets("sheet1").Range("F" & i) = "双"
Sheets("sheet1").Range("F" & i).Font.Color = RGB(139, 69, 0)
Sheets("sheet1").Range("H" & i) = "双"
Sheets("sheet1").Range("H" & i).Font.Color = RGB(139, 69, 0)

End If
Next i
End Sub

Dim c As Integer, d As Integer, a As Integer, b As Integer, e As Integer, f As Integer, i As Integer
x = Cells(1, 1000) 'cells(1,1000)中输入9
For i = 2 To x '每点击一下按钮9就加一变成10，11，12以此内推这个地方要怎样改呀，谢谢！
c = Sheets("sheet1").Range("A" & i)
If (c Mod 2 <> 0) Then
For ii = 2 To 8 Step 2
Sheets("sheet1").Cells(i, ii) = "单"
Sheets("sheet1").Cells(i, ii).Font.Color = RGB(0, 0, 139)
Next ii
Else
For ii = 2 To 8 Step 2
Sheets("sheet1").Cells(i, ii) = "双"
Sheets("sheet1").Cells(i, ii).Font.Color = RGB(139, 69, 0)
Next ii
End If
Next i
Cells(1, 1000) = Cells(1, 1000) + 1
试试