Macro para inserir linhas com critério

#1

Boa tarde Pessoal.

Estou quebrando a cabeça para encontrar uma macro que possa inserir linhas com base na informação de Qtde que existe em uma coluna.
Por exemplo:
Na coluna A teríamos o produto, na coluna B a qtde
Imaginemos que fosse assim:
Coluna A Coluna B
Cabo 5

Gostaria que a macro abrisse mais 4 linhas a partir da linha que possui qtde 5.

Desde já lhes agradeço muito!

Abs.

#2

Boa tarde LeoGama.
Veja se isto resolve o seu problema…
Bem simples para entender. Insiro uma a uma, mas dá para inserir tudo de uma vez, mas ai tem que definir o Range para inserir.
Abs

Sub fazer()

linha = 2
Do
    If Cells(linha, 2).Value >= 2 Then
        For incluir = 2 To Cells(linha, 2)
            Cells(linha + 1, linha + 1).EntireRow.Insert shift:=xlDown
        Next
        linha = linha + incluir - 1
    End If
Loop While Cells(linha, 1) <> ""

End Sub