Ve se ajuda:

Sub insere_tres_GT()
Application.ScreenUpdating = False

Dim UL As Long 'Última Linha
Dim i As Long

UL = Cells(Rows.Count, "C").End(xlUp).Row

For i = UL To 3 Step -1
    Rows(i & ":" & i + 2).Insert
Next i

Application.ScreenUpdating = True
End Sub

Ola.

como eu já tinha feito...

no caso da minha macro ela adiciona ou exclui linha na range escolhida para ficar com a quantidade de linhas que se quer.
L = 3 ' quantidade de linhas entre valores <<---Se colocar 0 vai tirar todas as linhas vazias da range,se colocar 5 vai adicionar 5 linhas vazias na range para cada linha preenchida.

Até

Ola.

como eu já tinha feito...

no caso da minha macro ela adiciona ou exclui linha na range escolhida para ficar com a quantidade de linhas que se quer.
L = 3 ' quantidade de linhas entre valores <<---Se colocar 0 vai tirar todas as linhas vazias da range,se colocar 5 vai adicionar 5 linhas vazias na range para cada linha preenchida.

Até

Boa Tarde Edcronos!!

Cara, muito obrigado pela sua ajuda. Ficou perfeito.

Imagine ficar pulando linhas na mao de mais de 3 mil dados? Vc fez com que esse trabalho que se perdia horas ficar em segundos.

Abraços e obrigado.

Sei bem oq é isso,
A pouco tempo atrás eu ficava organizando os meus dados arrastando os valores manualmente.

mas essa macro se forem tipo milhares de linhas vai levar bastante tempo "testei "
o certo seria mover apenas os valores,
só que se mover os valores as formulas não irão acompanhar e nem as formatações.
como não sabia sua necessidade fiz assim.

Att.