Oops!

.Cells(NR, "A").Resize(CLng(x(i, 4)), 6) = Array(x(i, 1), x(i, 2), x(i, 3), x(i, 4), x(i, 5), x(i, 6))