Excel VisualBasic Script

Sub cellPro()
    Dim I As Integer
    Dim K As Integer
    For K = 1 To 5
        For I = 1 To 10
            Cells(I, K).Value = I * K
        Next I
    Next K
End Sub