Sorry I didn't update my code. I need to put 5 values in "cop"

For k = 1 To 11
If Worksheets("cop").Cells(20, k) = "2013" Then
For m = 2 To 5
Worksheets("cop").Cells(21, k) = valarray(m)
Next m
End If
Next k