Function random(b As Integer, c As Integer) As Integer
random = (c - b + 1) * Rnd + b
End Function
Sub bilet2b()

Dim a(10, 10) As Integer, i As Byte, j As Byte
For i = 1 To 10
    For j = 1 To 10
        a(i, j) = random(-5, 10)
        Cells(i + 1, j + 1) = a(i, j)
     Next j
Next i
For i = 1 To 10
    For j = 1 To 10
        If a(i, j) = 0 Then
           a(i, j) = a(i, i)
        End If
    Next j
Next i