Private Sub ButtonCreator_Click()
Dim NumberCells As Integer
NumberCells = Cells(3, 4).Value
For j = 5 To 5 + NumberCells - 1
Cells(3, j).Value = "Column" & j - 4
Next j
For i = 4 To 4 + NumberCells - 1

Cells(i, 4).Value = "row" & i - 3
Next i

For i = 4 To 4 + NumberCells - 1
    For j = 5 To 5 + NumberCells - 1
        Cells(i, j).Value = Int(Rnd() * 100 - 300)
    Next j
Next i





End Sub