Dim Namen As Variant Dim i As Long Dim j As Long Namen = Split(Range("C11"), ", ") j = Range("B9").Value + 17 Do While j <= 69 For i = 1 To UBound(Namen) Range("E" & j).Value = Namen(i) j = j + 1 If j > 69 Then Exit For Next i Loop