Public Type productFile
    products() As String
    fileName As String
    sheetName As String
    checkColumn As Integer
End Type

Dim f As productFile
Dim i As Integer
ReDim f.products( 10 )
For i =  0  To  10 
f.products(i) = "элемент" & i
Next i

Public Type product
    productCode As Integer
    titles() As Variant
    instances As Variant
    sqlQuery As String
End Type

Public Type productFile
    products() As product
    fileName As String
    sheetName As String
    checkColumn As Integer
End Type

Private Sub Command1_Click()
Dim f As productFile
Dim i As Integer
Dim j As Integer
ReDim f.products( 10 )
For i =  0  To  10 
    ReDim f.products(i).titles( 10 )
Next i
For i =  0  To  10 
   For j =  0  To  10 
        f.products(i).titles(j) = "products " & i & " titles" & j
    Next j
Next i
For i =  0  To  10 
        For j =  0  To  10 
        Debug.Print f.products(i).titles(j)
        Next j
Next i
End Sub