[EXCEL] - Jak obliczyć zapas na podstawie dni roboczych i sprzedaży tygodniowej?

Cells.Find(what:="Dni robocze").Row

Function zapas(tydz, wiersz)
Application.Volatile 'Excel 2k7
'Application.Volatile = True 'Excel 2k

'trochę tu latania po arkuszu :)
'szukam wiersza zawierającego tekst
wt = Cells.Find(what:="Dni robocze", lookat:=xlWhole).Row
'określam pierwszą kolumnę z wielkością produkcji / zółta tabelka
zKol = tydz - Range("C5") + 4
'kolumna z ilością dni przesunięta jest o 1 w prawo / błekitna
dKol = zKol + 1
'ile dni zapasu z zielonej tabelki
days = Cells(wiersz, dKol + 8)

For i = 0 To 8 'dodajemy z max 8 tygodni, więcej chyba nie trzeba
    ileDni = ileDni + Cells(wt + 1, dKol + i)
    prod = Cells(wiersz, dKol - 1 + i)
    If ileDni >= days Then
        dziel = Cells(wt + 1, dKol + i)
        Exit For
    End If
    ileZap = ileZap + prod
Next

mnoz = days - ileDni + dziel
zapas = ileZap + ((prod / dziel) * mnoz)
End Function

zKol = tydz - Range("C5") + 4

zKol = tydz - Range("F5") + 4

Function zapas(tydz, wiersz)
Application.Volatile 'Excel 2k7
'Application.Volatile = True 'Excel 2k

wt = Cells.Find(what:="Dni robocze", lookat:=xlWhole).Row
wk = Cells.Find(what:="Dni robocze", lookat:=xlWhole).Column
zKol = tydz - Cells(5, wk) + 7
dKol = zKol + 1
days = Cells(wiersz, dKol + 8)

For i = 0 To 8
    ileDni = ileDni + Cells(wt + 1, dKol + i)
    prod = Cells(wiersz, dKol - 1 + i)
    If ileDni >= days Then
        dziel = Cells(wt + 1, dKol + i)
        Exit For
    End If
    ileZap = ileZap + prod
Next

mnoz = days - ileDni + dziel
zapas = ileZap + ((prod / dziel) * mnoz)
End Function