Excel Como multiplicar linhas em sequencia

[iS2Hardware]

Bom dia!

Necessito de auxílio para a seguinte situação;

Tenho uma planilha com 310 linhas, cada linha possui uma informação diferente (Nome de cidades do estado Bahia), eu preciso multiplicar cada linha dessas 3x, isto é, ter uma sequencia 4 linhas para cada cidade, por ex.

 

COMO ESTÁ

Região                      CEP Inicial                  CEP Final

BA - Abaíra               46690000                    46699999

BA - Abaré                48680000                    46699999

BA - Acajutiba           48360000                    46699999

BA - Adustina            48435000                    46699999

 

COMO EU PRECISO QUE FIQUE:

Região                   CEP Inicial                  CEP Final

BA - Abaíra            46690000                   46699999

BA - Abaíra            46690000                   46699999

BA - Abaíra            46690000                   46699999

BA - Abaíra            46690000                   46699999

BA - Abaré             48680000                   48699999

BA - Abaré             48680000                   48699999

BA - Abaré             48680000                   48699999

BA - Abaré             48680000                   48699999

BA - Acajutiba        48360000                   48369999

BA - Acajutiba        48360000                   48369999

BA - Acajutiba        48360000                   48369999

BA - Acajutiba        48360000                   48369999

BA - Adustina         48435000                   48439999

BA - Adustina         48435000                   48439999

BA - Adustina         48435000                   48439999

BA - Adustina         48435000                   48439999

 

Eu sei que existe como fazer manualmente, uma por uma, porém, levará um tempo absurdo, além de existirem outros estados com um número de cidades maior e que terei de fazer o mesmo procedimento.

 

Alguém poderia me ajuda a como replicar as informações de maneira coletiva, isto é, sem precisar ficar duplicando linha por linha em todos os 310 casos.

 

No aguardo e a disposição.

adicionado 15 minutos depois

Bom, procurei bastante por uma solução envolvendo formulas ou ferramentas do próprio software que pudessem fazer a função, porém, não obtive resultados.

 

Então minha namorada indicou copiar todas as 310 linhas, colar em uma planilha em branco 4x e depois organizar por ordem alfabética.

No fim de tudo ela foi mais esperta do que eu 1.240x rsrs

 

Pode fechar e caso algum usuário tivesse alguma solução envolvendo uma ferramenta do programa mesmo, será um prazer conhecer, pode me enviar por mensagem privada ou tentar comentar no tópico antes que seja fechado.

[Basole]

@iS2Hardware através desta macro, essa tarefa fica mais simples.

 

    

Sub ReplicarLinhas()

        QdtLinhasAReplicar = 3

With ActiveSheet
        For i = .Cells(.Rows.Count, 1).End(xlUp).Row To 2 Step -1
            .Rows(i).Copy
            .Rows(i).Resize(QdtLinhasAReplicar).Insert
        Next
End With

     Excel.Application.CutCopyMode = False

End Sub