Satır ekleyip veri kopyalamak

[kermith]

ekli excel dosyasında
1-"Elimizde bulunan tablo"da "başlık 4" sutununda yer alan veri 1'den büyük ise
ilgili satırın "başlık 2"/"başlık 3" sutunundaki verilerin ardışık istenmektedir.

2 - "Elde edilmek istenen tablo"da sarı ile işaretlenen satırlar eklenir. "başlık 2"/"başlık 3" da aynı veriler yazılması sağlanır.

Babadan kalma satır ekle kopyala yapıştır yöntemi yerine daha kolay bir yöntem var mıdır?

 

[hamitcan]

Sub tablo_olustur()
c = 9
    For i = 3 To 5
    s = Cells(i, "b") - 1
        For ii = 1 To Cells(i, "d")
            s = s + 1
            c = c + 1
            Cells(c, "a") = Cells(i, "a")
            Cells(c, "b") = s
            Cells(c, "c") = s
            Cells(c, "d") = 1
            Cells(c, "e") = Cells(i, "e")
            Cells(c, "f") = Cells(i, "f")
            Cells(c, "g") = Cells(i, "g")
        Next
    Next
End Sub

 

[kermith]

cok tesekkür ederim.