sayıyı sütunlara bölüştürme

[zcank]

ekteki tabloda A2ye yazılacak sayıyı , R olmayan günlere ;eşit olarak dağıttırıp, artan kısmı pazartesi , çarşamba ve cumaya nasıl ekletebiliriz.
14 : 43R34gibi. (Eğer R yoksa 5 güne dağıttırmak istiyorum.)

 

[meslan]

Merhaba

Sub dagit()
a = WorksheetFunction.CountA(Rows(1))
b = WorksheetFunction.CountIf(Rows(2), "R")
c = Int(Cells(2, 1).Value / (a - b))
For i = 2 To a + 1
    If Cells(2, i) <> "R" Then Cells(2, i) = c: d = d + c
Next
s = 1
For y = 1 To Cells(2, 1) - d
1     s = s + 1
    If Cells(2, s) = "R" Then GoTo 1
    Cells(2, s) = Cells(2, s) + 1
 Next
End Sub