Hallo Helpers en oplossers

Ik zit met een uitdaging waar ik niet uit kom, waarom anders dit epistel

In het volgende stukje macro schrijf ik gegevens weg door gebruik te maken van een array. het probleem is dat uiteindelijk alleen de laatste waarde uit de array in de aangewezen cellen komt te staan. ik zie dat er ergens met de 2 for next constructies de boel hopeloos fout loopt, eerst loopt de For y loop 13 keer dan verhoogt hij pas de for i met 2 om vervolgens de y weer 13 keer te laten lopen en die procedure wordt dan vervolgens weer 13 keer herhaald. het omdraaien van Next y of i heeft in feite hetzelfde effect.

Wie ziet in onderstaande code waar ik mis ga?

With Blad9.Columns(1)

    Application.EnableEvents = False
   
    j = .Cells(Cells.Rows.Count, 1).End(xlUp).Offset(1, 0).Row
   
    X = Array(TGK, BO, KPK, FL, T, ASR, OH, LP, KML, LKM, GKB, GKT, OPK)
   
    For i = 2 To 26 Step 2

        For y = 1 To 13 'array nummer
   
        .Cells(j, i) = X(y)
       
        Next y
   
    Next i
   
    Application.EnableEvents = True
End With