You can avoid the For.. Next loop

Try this:

Sheets("report").Activate
Range(Cells(1, 1), Cells(1, 17)) = K

Or if you want to keep the upper range of K flexible, then try:

u = UBound(K)
Sheets("report").Activate
Range(Cells(1, 1), Cells(1, u)) = K