Andre Seja Bem Vindo!

Não consigo ainda analisar um codigo apenas sem o arquivo, mas um dia chego lá.

Posta um modelo pra gente da uma olhada.

BLZ?

T+

Segue planilha como modelo.
vlw

Veja se esta alteração retorna como pretende...

If .Value > 1 Then
Rows(iRow).Copy
Rows(iRow + 1).Insert Shift:=xlDown
End If

Até deu certo só repetiu a linha 1 vez, gostaria que repetisse a linha conforme o nº informado da célula.
Exemplo : se o nº da célula é 3 quero que repita 3 vezes a linha .

obrigado

Veja agora:

Dim cont As Integer
Dim i As Integer

i = 1
.
.
.

If .Value > 1 Then
cont = .Value
Do While i <= cont
Rows(iRow).Copy
Rows(iRow + 1).Insert Shift:=xlDown
i = i + 1
Loop
i = 1
End If

Vlw, muito obrigado. Porém além de repetir as linhas esta abrindo linhas em branco.
Poderia me dizer como faço para abrir as linhas em branco.
To mandando o anexo, veja como ficou.

obrigado

Desculpe não qro linhas em branco , qro exclui-la, e se possivel abrir a quantidade menos 1,(exemplo se na célula é 5, qro que insira apenas 4 linhas repetidas.

abraço

Não são inseridas novas linhas e branco e sim mantidas as já existentes...
O ideal seria que não houvesse estas linhas na base de dados... mas vou pensar em algo...

Para inserir o valor da célula - 1:

cont = .Value - 1

Ok, obrigado, se conseguir algo me passe por gentileza.
vlw

Poderia passar o código inteiro pra mim.
obrigado.

Poderia por gentileza me mandar o código completo.

abraço

Por favor, no código abaixo como faço para que não repita a informação de um determinada coluna.

Private Sub CommandButton1_Click()

Dim FirstRow As Long
Dim LastRow As Long
Dim iRow As Long
Dim wks As Worksheet

Set wks = ActiveSheet

With wks
FirstRow = 2
LastRow = .Cells(.Rows.Count, "c").End(xlUp).Row

For iRow = LastRow To FirstRow Step -1
With .Cells(iRow, "c")
If IsNumeric(.Value) Then
If .Value > 1 Then
.Offset(1, 0).Resize(.Value).EntireRow.Insert

Dim cont As Integer
Dim i As Integer

i = 1

If .Value > 1 Then
cont = .Value - 1
Do While i <= cont
Rows(iRow).Copy
Rows(iRow + 1).Insert Shift:=xlDown
i = i + 1
Loop
i = 1
End If

End If
End If
End With
Next iRow
End With

End Sub

atenciosamente.