Visual Basic krótkie zadanie pomoc [losowanie i InputBox]

1.W skoroszycie programu MS Excel pozostaw tylko dwa arkusze i nadaj im nazwy: Liczby oraz Wynik .
2.W arkuszu Liczby zaznacz zakres komórek b3:e3 i nadaj mu nazwę zmienne, a komórką z zakresu C2:C6 w arkuszu wynik nadaj nazwę Dane
3.Nagraj makro przez zapis czynności lub napisz procedury umożliwiające przechodzenie między arkuszami Liczby oraz Wynik. Utwórz przyciski do tych procedur.
4.Napisz procedurę losowanie, która wylosuje 4 różne liczby całkowite z zakresu od 15 do 45, i wpisze te liczby do komórek zmienne. Następnie napisz polecenie sumowania wszystkich wylosowanych liczb, a wynik działania wyświetl w oknie MsgBox w postaci komunikatu.
5.Napisz procedurę mnożenie, która pomnoży liczby z zakresu zmienne przez wczytaną z klawiatury za pomocą funkcji InputBox liczbę o nazwie mnożnik. Zapisz przemnożone liczby do komórek dane w arkuszu Wynik.

1,2,3 pkt umiem, chodzi mi o 4 i 5.

Sub losowanie()
    With Sheets("Liczby")
    Dim i As Byte
    Dim j As Byte
    For j = 2 To 5
        i = Int((45 - 25 + 1) * Rnd + 25)
        'b3 do e3
        If j <> .Cells(3, 2) And j <> .Cells(3, 3) And j <> .Cells(3, 4) Then .Cells(3, j) = i
    Next j
    End With
End Sub

Sub dodawanie()
    Dim suma As Integer
    Dim i As Byte
    With Sheets("Liczby")
        For i = 2 To 5
            suma = suma + .Cells(3, i)
        Next i
    End With
    MsgBox ("Suma: " & suma)
End Sub

Sub mnozenie()
    Dim mnoznik As String
    mnoznik = InputBox("Podaj mnoznik: ", "Mnoznik")
    With Sheets("Wynik")
        Dim m As Byte
        For m = 2 To 5
            ' c2 do c6
            .Cells(m, 3) = Sheets("Liczby").Cells(3, m) * mnoznik
            Next m
    End With
End Sub

dasz rade :) a jak nie to przykro mi idz moze na biologie albo geografie ;P pozdro