Option Explicit
    
    Private Sub CommandButton1_Click()
    Call sheetform
    Unload Me
    End Sub
    
    Sub test() 'Заполняем массив случайными числами из текстбокса
    ReDim arrtest(1 To Val(Tb1.Text), 1 To 2)
    
    For i = 1 To UBound(arrtest, 1)
         j = 1
            arrtest(i, j) = i ' номер итерации
10         arrtest(i, j + 1) = Tb1.Value * 99 * Rnd ' случайное число полученное умножением числа введенного в текстбоксе на генератор
     Next i
    End Sub
    
    ' Выводим данные массива arrtest на новый лист после нажатия кнопки exit
    
    Sub sheetform()
    Application.ScreenUpdating = False
    
    'Создаем новый лист с помощью объектной переменной (в этом случае новый лист создается строго перед активным листом и нигде больше)
    
    Dim SheetTest As Worksheet
    Dim Celltest As Range
    Dim currow As Integer ' переменная для счетчика строк
    
    currow = 1
    
    Set SheetTest = Worksheets.Add
        SheetTest.Name = "test" & Sheets.Count
        Windows.Item(SheetTest.Parent.Name).DisplayGridlines = False ' убираем сетку
        
    'вставляем названия ячеек на созданный лист
    ' Заголовки столбцов
        SheetTest.Cells(currow, 1) = "№ Периода"
        SheetTest.Cells(currow, 2) = "Тестовое случайное значение"
    
    Call test ' вызываем процедуру заполнения массива arrtest случайными числами
    
    ' Заполняем лист данными из массива arrtest, куда мы предварительно внесли все расчетные значения ,ячейки таблицы
    For i = 1 To UBound(arrtest, 1)
        For j = 1 To UBound(arrtest, 2)
            SheetTest.Cells(currow + i, j) = arrtest(i, j)
        Next j
    Next i
    
20   ' Здесь форматируем второй столбец со случайными данными в формат чисел с двумя знаками после запятой.
    For Each Celltest In Range(Cells(currow + 1, UBound(arrtest, 2)), Cells(currow + 1 + UBound(arrtest, 1), UBound(arrtest, 2)))
           Celltest.Value = Format(Celltest.Value, "#,##0.00") ' форматируем ячейки в формат 0.00
    Next
    
    End Sub