Seleccionar un rango

Que tal experto. Mi nombre es Ángel, soy como muchos, principiante en estos menesteres. Tengo parte de mi siguiente código.
Private Sub Borrar_ceros()
For t = 1 To Sheets.Count - 2
Sheets(t).Select
For p = 1 To 100
arreglo = Cells(1, 1)
If Cells(p, 1) = arreglo Then
If Cells(p, 16) = vbNullString Or Cells_(p, 16) = 0 Then
Cells(p, 16).Select
ActiveCell.Offset(-5, 0).Select
'en la linea anterior selecciona la celda nula, sube 5 líneas aqui la pregunta ¿como puedo seleccionar 10 líneas hacia abajo? Conciderando que no se en que línea está posicionada, para despues borrarlas. (pero siempre 10 líneas hacia abajo)
Rows(p).Delete
End If
End If
Next
Anticipadamente, mil gracias.
Saludos.