Not sure if this is what you are looking for,
If the arrray is referring to Column K, try this:

ColumnK = Range("k1").Columns.Column
For co = 1 To 17
Worksheets(" report"). Activate
Cells( 1, d).value = Cells(ColumnK,d).value
Next co