Hücre değerinde yazan miktar kadar satır tekrarlatmak

[blackdesign]

Merhaba,

Products isimle bir sheetim var. A 'dan F ye kadar sütunlarım var.

G sütununda miktar değerlerim yazılı. Barkod oluşturuyoruz ve G sütununda yazan değer kadar, satırları hemen altına tekrar etsin istiyorum. 1 'den 200 'e kadar miktarlar yazılı. 2 ve daha fazlası için satırları çoğaltıp hemen altına aynı satırı tekrar etsin istiyorum.

Nasıl yapabiliriz?

 

[hamitcan]

Sub SatirCogalt()
    For i = [a65536].End(3).Row To 2 Step -1
        For j = 1 To Cells(i, "g")
            Rows(i + 1).Insert
            Rows(i + 1) = Rows(i).Value
        Next
    Next
    MsgBox "Bitti"
End Sub