I goofed on that last transmission!

If "K" is a defined  range somewhere in the worksheet or workbook and you are
looking to copy to a vertical contiguous cell range, then try

target = Sheets("sheet3").Index
For co = 1 To 17
Sheets(target).Cells(co, 1) = Range("k")(co)
Next co

Also, is this array  'K' generated by some VB code  earlier in the process?
Your original version appears to copy the K range to a diagonal range of cells!
Is this correct? Based on the line items d=1 & following d=d+1 in the loop
structure.