Sub Item_Generator()

Application.ScreenUpdating = False
With ThisWorkbook.Sheets(1)

Dim X As Byte 'How much Prefixes do we have?
Dim R As Byte 'To make circles run.

X = .Cells(Rows.Count, 1).End(xlUp).Row

'Хотел задать массив нужного размера, но он хочет константу...
'Dim Prefix(1 To X - 3)
'Dim Item(1 To Y - 3)
'Dim Postfix(1 To Z - 3)

Dim Prefix(1 To 18)
Dim Item(1 To 18)
Dim Postfix(1 To 18)

For R = 4 To X
     Prefix(R - 3) = .Cells(R, 1).Value
     Item(R - 3) = .Cells(R, 2).Value
     Postfix(R - 3) = .Cells(R, 3).Value
Next R

.Cells(1, 1).Value = Prefix(Int(Rnd() * (X - 3) + 1))
.Cells(1, 2).Value = Item(Int(Rnd() * (X - 3) + 1))
.Cells(1, 3).Value = Postfix(Int(Rnd() * (X - 3) + 1))

End With
Application.ScreenUpdating = True
End Sub

Dim a()
x = 5
ReDim a(1 To x)

Sub изменить_размер_массива()
Dim x
Dim v: v = 10
     ReDim x(1) 'меняем верхнюю границу (нижнюю нельзя)
         MsgBox "Нижняя граница массива = " & LBound(x) & vbNewLine & "Верхняя граница массива = " & UBound(x)
     ReDim x(v) 'меняем верхнюю границу на значение переменной v.
         MsgBox "Нижняя граница массива = " & LBound(x) & vbNewLine & "Верхняя граница массива = " & UBound(x)
End Sub

Sub изменить_размер_массива()
Dim x
Dim rRange As Range
Dim r&, c&
Set rRange = [a1:b4]
            
'    заполним диапазон значением строки и столбца
      For r = 1 To rRange.Rows.Count
          For c = 1 To rRange.Columns.Count
              rRange(r, c) = "строка " & r & "|столбец " & c
          Next
      Next
        
x = rRange.Value 'копируем из диапазона ячеек в двумерный массив.
'    проходим по массиву
      For r = 1 To UBound(x) 'если таким способом заполнять массив, то нижняя граница = 1
          For c = 1 To UBound(x, 2) 'получаем верхнюю границу второй размерности (кол-во столбцов)
              Debug.Print x(r, c)
          Next
      Next

End Sub

Option Explicit
Option Base 1

Sub Item_Generator()

Application.ScreenUpdating = False
With ThisWorkbook.Sheets(1)

Dim X As Long 'How much Prefixes do we have?
Dim Y As Long 'How much Items do we have?
Dim Z As Long 'How much Postfixes do we have?
Dim i As Long 'To make circles run.

Dim Prefix
Dim Item
Dim Postfix

'Measuring our arrays
X = .Cells(Rows.Count, 1).End(xlUp).Row
Y = .Cells(Rows.Count, 2).End(xlUp).Row
Z = .Cells(Rows.Count, 3).End(xlUp).Row

'Putting arrays to a proper condition
ReDim Prefix(X - 3)
ReDim Item(Y - 3)
ReDim Postfix(Z - 3)

'Loading values to arrays

For i = 4 To X
     Prefix(i - 3) = .Cells(i, 1).Value
Next i

For i = 4 To Y
     Item(i - 3) = .Cells(i, 2).Value
Next i

For i = 4 To Z
     Postfix(i - 3) = .Cells(i, 3).Value
Next i

'Random item generated and ready for output transition
.Cells(1, 1).Value = Prefix(Int(Rnd() * (X - 3) + 1))
.Cells(1, 2).Value = Item(Int(Rnd() * (Y - 3) + 1))
.Cells(1, 3).Value = Postfix(Int(Rnd() * (Z - 3) + 1))

End With
Application.ScreenUpdating = True
End Sub

sub x()
dim y
'...код
if true then
y=0
'...код
end if
end sub

sub x()
'...код
if true then
dim y
'...код
end if
end sub