Sub demo()
Dim cell
Dim i As Integer, cpt As Integer
Dim t
t = Range("A10:A1010")
cpt = UBound(t)
For i = 1 To cpt
If IsNumeric(t(i, 1)) Then
If t(i, 1) >= 7 Then t(i, 1) = 1 Else t(i, 1) = t(i, 1) / 7
End If
Next
Range("A10:A1010").Value = t
End Sub