Sub do_wynik()

Sheets("wynik").Select

End Sub

Sub generuj()

Dim i As Byte

Sheets("liczby").Select

Randomize

For i = 1 To 4

Range("b2").Offset(0, i - 1).Value = Int(Rnd() * 30) + 15

Next

End Sub

Sub CommandButton2_Click()

Dim suma As Integer

With Range("F20")

.FormulaLocal = "=SUMA(b2:e2)"

End With

MsgBox "Oto suma: " & Range("f20").Value

End Sub

Sub licz()

Dim mn As Integer

mn = (InputBox(prompt:="podaj mnoznik"))

For i = 1 To 4

Sheets("wynik").Range("c1").Offset(i, 0).Value = mn * Sheets("liczby").Cells(3, i + 1).Value

Next

End Sub

Sub do_liczby()

Sheets("liczby").Select

End Sub