Macro para inserir duas linhas e três colunas de células abaixo de um intervalo selecionado

Eu fiz uma macro que funciona perfeitamente para inserir o espaço que preciso abaixo de um certo intervalo. Ela seleciona as células e então usa insert para mover os dados abaixo. Ela então faz um loop para fazer isso por mais algumas vezes

Aqui está;

i = 3
Do While i < 19
    Set Rng1 = Worksheets("Sheet1").Range("A" & i & ":C" & i + 1)
    Rng1.Insert Shift:=xlDown
    i = i + 3
Loop

O problema é que quando eu alterei para que funcionasse não importa onde eu colocasse a tabela (já que ela geralmente fica em colunas diferentes, mas sempre na extremidade direita), de repente ela insere apenas 20 linhas completas e não faz mais nada.

i = 3
Set rng1 = Worksheets("Sheet1").Range("BZ6").End(xlToLeft).Offset(0, -2)
Do While i < 19
    Set rng2= Worksheets("Sheet1").Range(rng1.Offset(i, 0) & ":" & rng1.Offset(i + 1, 2))
    rng2.Insert Shift:=xlDown
    i = i + 3
Loop

Isso deve considerar rng1 como o canto superior esquerdo da tabela e rng2 como as 6 células que desejo inserir 6 células acima.

É a primeira vez que tento usar Offset, então posso estar implementando errado. Qualquer ajuda seria muito apreciada