Problema con rangos en macro

Buen dia:

tenga la siguiente macro pero necesito que solo me cambie los valores de H a partir de H10.

H es la columna de ingresos he I es la columna de notas.

Agradecería su colaboración.

Sub Validación()
Dim UltiFila, i As Integer
UltiFila = WorksheetFunction.CountA(Range("A:A"))
For i = 2 To UltiFila
If Cells(i, "H") <> "Nunca" Then
Cells(i, "H") = "Ingreso"
Else
Cells(i, "H") = "No ingreso"
End If
If Cells(i, "I") = "0" Then
Cells(i, "H") = "No Ingreso"
End If
Next
End Sub