Hjælp til lidt VBA kodning i EXCEL

Hvordan ændrer jeg den kode, såldes jeg udvider indsætning i Access til mere end 6 produkter Idag kan der kun indtastes 6 produkter- Jeg har ændret databasen skal bare have ændret følgende kode!! DEr skal kunne indsættes 10 produkter ialt!!


For I = 1 To 6
          If I < 6 Then .Fields("Bil regnr" & I) = Range("B" & 64 + I).Value ´ der er kun 5 biler
            .Fields("Produktnr" & I) = Produkter(I, 2)
            .Fields("Produkttekst" & I) = Produkter(I, 3)
            .Fields("Ikraftdato" & I) = Range("J7").Value
            ´ her kan indsættes flere i serier
      Next
            ´ tilpas til aktuel tabel
            .Update ´ gem den nye record
            .Close

OG


Public Sub FindProdukter()
Dim X As Byte
X = 1
For Each C In Range("D11:D62")
If C <> "" Then
Produkter(X, 1) = C ´ denne indeholder antallet af det enkelte produkt , skal det ikke bruges. ?
For I = 2 To 3
Produkter(X, I) = C.Offset(0, I - 1)
Next
X = X + 1
End If
Next
End Sub

Desuden har skal den komme med en msg når der indtastes mere end de 10 produkter "AT DET IKKE ER TILLADT AT INDTASTE FLERE PRODUKTER"