Sub Main()
 cislo = ActiveCell
 For i = 1 To 10
 Cells(i, 1) = i
 Cells(i, 2) = "x"
 Cells(i, 3) = cislo
 Cells(i, 4) = "="
 Cells(i, 5) = i * cislo
 Cells(i, 6) = i & "x" & cislo & "=" & i * cislo

 Next i

End Sub