makro ile yoldaki ürünü dağıtma

[eceLprensi]

Merhaba,
Üstatlarım,

ekteki excelde ürünlerin yoldaki durumları mevcut.
yolda 30 adet a ürünü var ama sipariş 35 bu 30 adeti her sipariş tarihine göre dağıtmak istiyorum.

bunu makro ile yapmam lazım çünki data 100000 satır

eğersay ve etopla girince işin içine Formül kısmı çok kasıyor.

Saygılar.
Teşekkürler.

 

[hamitcan]

Olması gereken durumu gösterirseniz daha çabuk cevap bulabilirsiniz.

 

[eceLprensi]

ok ile gösterdiğim alan olması gereken kısmı.

 

[veyselemre]

Sub test()
    Dim ky, i, kalan
    With CreateObject("Scripting.Dictionary")
        For i = 5 To Cells(Rows.Count, 1).End(xlUp).Row
            ky = Cells(i, "A").Value
            If Not .exists(ky) Then
                .Item(ky) = Cells(i, "C").Value
            End If
            kalan = .Item(ky)
            If kalan >= Cells(i, "B").Value Then
                Cells(i, "D").Value = Cells(i, "B").Value
            Else
                Cells(i, "D").Value = kalan
            End If
            .Item(ky) = kalan - Cells(i, "D").Value
        Next i
    End With
End Sub