Sub zz()
Dim count900, count900e, count1800
For k = 2 To 100
count900 = 0
count900e = 0
count1800 = 0
x = Sheets(1).Cells(k, 15)
For i = 1 To x
y = Sheets(1).Cells(k, 15 + i)
If y > 0 And y < 125 Then
count900 = count900 + 1
ElseIf y >= 512 And y <= 885 Then
count1800 = count1800 + 1
Else
count900e = count900e + 1
End If
Next
Sheets(1).Cells(k, 88) = count900
Sheets(1).Cells(k, 89) = count900e
Sheets(1).Cells(k, 90) = count1800
Next
End Sub