پرسش تخصیص موجودی

[fimani119]

با سلام
دو شیت دارم که میخوام کسری ها رو تخصیص بدم به مقدار درخواست هایی که صادر شده و اسم نیروگاه و پروژه اش رو در شیت درخواست ها وارد کنم
خودم یک ماکرو نوشتم ولی درست کار نمیکنه ممنون میشم کمکم کنید خیلی لازمش دارم.

Sub Macro10()






'ActiveCell.Formula2R1C1 = "=UNIQUE(kasri!c[1])"
'lastRow = Worksheets("material").Cells(Rows.Count, "A").End(xlUp).Row


last_row_pr = Worksheets("PR").Cells(Rows.Count, "B").End(xlUp).Row
last_row_kasri = Worksheets("kasri").Cells(Rows.Count, "B").End(xlUp).Row
Worksheets("PR").Select


For i = 2 To last_row_kasri

pr = 0
s = 0

For j = 3 To last_row_pr

If CStr(Worksheets("PR").Range("B" & j)) = CStr(Worksheets("kasri").Range("b" & i)) Then

pr = Worksheets("PR").Range("j" & j).Value + pr
s = Worksheets("kasri").Range("K" & i) + s




If pr <= s Then

Worksheets("PR").Range("BF" & j).Value = Worksheets("kasri").Range("q" & i)
Worksheets("PR").Range("BG" & j).Value = Worksheets("kasri").Range("r" & i)
Worksheets("PR").Range("BH" & j).Value = Worksheets("kasri").Range("u" & i)

s = Worksheets("kasri").Range("k" & i) - pr
Worksheets("PR").Range("BI" & j).Value = s


End If

End If

Next j

Next i

End Sub