Private Sub CommandButton1_Click()
Dim i As Integer

For i = 1 To 9
For j = 1 To 9
Cells(i, j).Value = i * j
Next j
Next i
End Sub