sub jjcfb ()
dim i,j as interger
for i = 1 to 9
for j = i to 9
cells (j,i)= i & " * " j & " = " & i * j
next
end sub