Option Explicit

Sub Кнопка1_Щелчок()
    Const sAddress$ = "C3:G7"
    Const lMIN& = 1
    Const lMAX& = 20
    
    Dim rng As Range
    Dim arr&()
    Dim i&, j&, c&, r&
    
    Randomize
    
    Set rng = Range(sAddress)
    With rng
        r = .Rows.Count
        c = .Columns.Count
        ReDim arr(1 To r, 1 To c)
        
        For i = 1 To r
            For j = 1 To c
                arr(i, j) = CLng(lMIN + (lMAX - 1) * Rnd)
            Next j
        Next i
        
        .Value = arr
    End With ' rng
End Sub