Sub etiketten()
Columns("AA").ClearContents
For Each cl In Sheets("lijst").Range("E2:E" & Sheets("lijst").Range("E" & Rows.Count).End(xlUp).Row)
If IsNumeric(cl) Then Aant = cl: Ccode = cl.Offset(, -4).Value
Cells(Rows.Count, "AA").End(xlUp).Offset(1).Resize(Aant).Value = Ccode
Next
Mysom = Int(Application.WorksheetFunction.CountA(Columns("AA")) / 6)
For I = 0 To Mysom
With Sheets("etiketten")
.[A2] = Sheets("lijst").Cells((I * 6) + 2, "AA")
.[B2] = Sheets("lijst").Cells((I * 6) + 3, "AA")
.[A6] = Sheets("lijst").Cells((I * 6) + 4, "AA")
.[B6] = Sheets("lijst").Cells((I * 6) + 5, "AA")
.[A10] = Sheets("lijst").Cells((I * 6) + 6, "AA")
.[B10] = Sheets("lijst").Cells((I * 6) + 7, "AA")
End With
Sheets("etiketten").FitToPagesWide = 1
Sheets("etiketten").FitToPagesTall = 1
Sheets("etiketten").Range("A1:B16").PrintOut Copies:=1, Collate:=True
Next I
End Sub
test deze aanpassing eens