Importar csv y transponer

   Hola a todos una vez mas,
Estoy trabajando en una importacion de un archivo csv el formato es una especie de Cross Table lo que pretendo es importar ese archivo de forma tabular a mi tabla access les muestro una imagen.

Los datos a importar siempre comienzan desde el row 4 (variable la cantidad de rows) y desde la columna A a la G.

Desde la columna H hacia adelante la cantidad de columnas es variable puede ser solo la columna H la que tenga datos y he visto hasta 200 columnas es decir columna H a GY pero como comento es variable.

Entonces la columna H quiero transponerlo a la columna C1 de mi tabla solo los rows que tengan como valor en esa columna 1 con su respectivos datos de ese row.
Columna C2 de mi tabla los valores de 1 de columna H.

Columna C3 el valor correspondiente para esa row,columna y asi consecutivamente con el resto de los datos.

Para ello he estado trabajando en este trozo de codigo, pero me salta error Runt time error 9  Subscript out of range en la linea comentada en el siguiente codigo:

Sub Import()
Dim rst As New ADODB.Recordset
Dim tbl() As Variant
Dim fld As Integer
Dim flds() As Variant

    rst.CursorLocation = adUseClient
    rst.Open "SELECT Top 10 * FROM [Text;Database=C:\dataimport\].quote.csv;", CurrentProject.Connection, adOpenStatic, adLockReadOnly

    ReDim flds(rst.Fields.Count - 1 - 7) '<-- Aqui ,marca el error
    For fld = 0 To UBound(flds)
        flds(fld) = fld + 7
    Next
    rst.Move 4 'Nos situamos en la fila 4
    tbl = rst.GetRows(2, , flds)
    rst.Close
    For fld = 0 To UBound(tbl, 1)
        CurrentDb.Execute _
        "Insert Into MiTabla (C1, C2, C3, C4, C5, C6, C7, C8, C9, C10) " & _
        "Select '" & Left(tbl(fld, 0), 8) & "', '" & Right(tbl(fld, 1), 2) & "', F1, F2, F3, F9, F11, F7, F8, F10 From [Text;Database=C:\dataimport\].quote.csv Where F" & fld + 1 + 7& "=1"
    Next

End Sub

Como puedo corregir ese error? o alguna idea para lograr lo que pretendo?

NOTA: Espero haberme explicado lo que pretendo.

De antemano gracias y un saludo.

Erick Gamer