EXCEL

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