If Cells(i, 10).Value <= 0 Then
Cells(i, col).Value = 0
ElseIf Cells(i, 10).Value > 12 Then
Cells(i, col).Value = Cells(i, 7).Value
ElseIf Cells(i, 10).Value >= 1 And Cells(i, 10).Value <= 12 Then
If Cells(1, col) >= Cells(i, 4) And Cells(1, col) <= Cells(i, 5) Then
Cells(i, col).Value = Cells(i, 7).Value
End If
Else
Cells(i, col).Value = ""
End If