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