Private Sub CommandButton1_Click()
On Error Resume Next
Dim a As Integer
Dim b As Integer
Dim c As Integer
Dim d As Integer
Dim e As Integer
Dim f As Integer
Dim g As Integer
Range(“H2”) = Range(“H2”) + 1
a = Range(“H2”)
Range(“D” & 2 + a) = Range(“A3”) * a + Range(“B3”)
b = Range(“D” & 2 + a) Mod Range(“A4”)
If b = Range(“B4”) Then
Range(“I2”) = Range(“I2”) + 1
c = Range(“I2”)
Range(“E” & 2 + c) = Range(“D” & 2 + a)
d = Range(“E” & 2 + c) Mod Range(“A5”)
If d = Range(“B5”) Then
Range(“J2”) = Range(“J2”) + 1
e = Range(“J2”)
Range(“F” & 2 + e) = Range(“E” & 2 + c)
f = Range(“F” & 2 + e) Mod Range(“A6”)
If f = Range(“B6”) Then
Range(“K2”) = Range(“K2”) + 1
g = Range(“K2”)
Range(“G” & 2 + g) = Range(“F” & 2 + e)
End If
End If
End If
End Sub

Private Sub CommandButton2_Click()
Dim a As Integer
a = Range(“H2”)
For i = 0 To a
Range(“D3:G” & 2 + Range(“H2”)) = “”
Next i
Range(“H2:K2”) = 0

End Sub