Agregar una fila de compensación a un rango dado. Excel VBA

Tengo una variable que al principio se establece en un rango determinado.

Quiero tener una declaración de bucle que tome la siguiente fila hacia abajo desde el final del rango dado y la agregue a ese rango.

es decir:

myRows = Range(1:10)

    For Each cell in myRows

       If cell.Value > 2048 Then

           myRows = myRows + myRows.Offset(1, 0) ---This is where i need help---

Básicamente, ¿cómo puedo incrementar automáticamente el rango cada vez que se ejecuta el bucle?

Editar:

También cómo agregaría al frente de la gama. Así como quitar de la parte posterior de la gama.

es decir

El rango (1:10) está oculto El rango (11:20) está oculto

Quiero agregar uno al rango no oculto que eliminaría el rango oculto, por lo que es:

El rango (1:11) está oculto El rango (12:20) está oculto

Respuestas a la pregunta(2)

Su respuesta a la pregunta