Dodawanie wiersza odsunięcia do podanego zakresu. Excel VBA

Mam zmienną, która na początku jest ustawiona na podany zakres.

Chcę mieć instrukcję pętli, która przeniosłaby następny wiersz w dół od końca danego zakresu i dodałaby go do tego zakresu.

to znaczy:

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---

Zasadniczo, jak i auto zwiększa zakres przy każdym uruchomieniu pętli.

Edytować:

Również w jaki sposób mogę dodać do przodu zakresu. Jak również zabierz z tyłu zasięg.

to znaczy

Zasięg (1:10) jest niewidoczny Zasięg (11:20) jest ukryty

Chcę dodać jeden do ukrytego zakresu, który zabrałby ukryty zakres, więc jego:

Zasięg (1:11) jest niewidoczny Zasięg (12:20) jest ukryty

questionAnswers(2)

yourAnswerToTheQuestion