вот макрос:
Sub multi()
Cells().ClearContents
nnmax = 10
For nn = 2 To nnmax + 1
Cells(1, nn) = nn - 1
Cells(nn, 1) = nn - 1
For jj = 2 To nnmax + 1
Cells(jj, nn) = (jj - 1) * (nn - 1)
Next jj
Next nn
End Sub
как видите он универсальный: nnmax = 10 вместо 10 можете поставить другое число
вот результат: