Schijnbaar dacht ik te moeilijk, ik heb mijn uitdaging opgelost met:
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)
y = 1
For i = 2 To 26 Step 2
.Cells(j, i) = X(y)
y = y + 1
Next i
Application.EnableEvents = True
End With
End Sub