Este fórum está sendo desativado

[BrunoBarrosGraf]

Boa noite!
Imagino que a minha necessidade possa ser atendida com uma macro. Mas como não tenho certeza, abri o problema dentro desse tópico.
Tenho uma planilha que servirá de base de dados para que seja feito um upload para um sistema de forma a atualizar o cadastro de e-mails..
A forma parametrizada é que cada cliente cujo o mesmo tenha mais de um e-mail de contato, seja incluído linhas e replicado a informação.
O que me ajudaria a trabalhar nessa base de dados é se houvesse uma forma de incluir linhas de forma automática. Hoje tenho que selecionar linha a linha e incluir espaços adicionais. Gostaria de saber se tem como incluir uma macro que faça isso automático.
No exemplo em anexo, notar que deixei um modelo de como será a planilha. Os espaços são as linhas que foram inseridas. E as linhas em vermelho a repetição do cliente aonde na coluna seguinte será incluído os contatos.
Atenciosamente,
Bruno Graf

[alexandrevba]

Bom dia!!

Eu não entendi muito bem, mas faça os testes com essa rotina, depois tente adaptar.

Código: Selecionar todos

Sub AleVBA_1593()
  
    Dim Rng As Long
     
    Application.DisplayAlerts = False
    On Error Resume Next
    Rng = InputBox("Entre com a quantidade de linhas.")
    On Error GoTo 0
    Application.DisplayAlerts = True
    If Rng = 0 Then
         MsgBox "Intervalo não especificado!"
        Exit Sub
    Else
        Range(ActiveCell.Offset(1, 0), ActiveCell.Offset(Rng, 0)).Select
        Selection.EntireRow.Insert
    End If
End Sub

Att