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