Merhaba;

Kontrol edebilirmisiniz.

Sub Dagitim()



Dim Satir_ilk1, Satir_Son1, Satir_ilk2, Satir_Son2, Adet, Deger



Satir_Son1 = WorksheetFunction.CountA(Columns("E"))



Satir_ilk1 = 2

Satir_ilk2 = 2



Range("F2").Select

Adet = ActiveCell.Value



Satir_Son2 = Adet



For Satir1 = Satir_ilk1 To Satir_Son1



Range("F" & Satir1).Select

Adet = ActiveCell.Value



Range("E" & Satir1).Select

Deger = ActiveCell.Value



Satir_Son2 = Satir_ilk2 + Adet

                  

    For Satir2 = Satir_ilk2 To Satir_Son2

    

    Range("A" & Satir2).Select

    ActiveCell.Value = Deger

    

        

    Next



Satir_ilk2 = Satir_Son2

Range("G" & Satir1) = "Tamam."



Next

Dim ss

ss = WorksheetFunction.CountA(Columns("A"))

Range("A" & ss).Select

ActiveCell.Value = ""

Range("D1").Select



End Sub