For I = 1 To (totalcol + 3)
If Cells(4, I) = "Z-5" Then
If Cells(7, I) = "GU" Then
valarray(1) = Worksheets("Sheet1").Cells(12, I).Value
valarray(2) = Worksheets("Sheet1").Cells(16, I).Value
valarray(3) = Worksheets("Sheet1").Cells(17, I).Value
valarray(4) = Worksheets("Sheet1").Cells(22, I).Value
valarray(5) = Worksheets("Sheet1").Cells(26, I).Value
End If
End If
Next I

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