Makro für Zuordnen von Pers.Nr. zu Monaten

Sub test()
Worksheets("Einteiler").Activate
j = 2
letzterTag = 0
aktuellerTag = 1
For i = 1 To 50
persnr = Worksheets("Personal").Range("C" & i + 1)
Do While aktuellerTag > letzterTag
ActiveSheet.Range("H" & j).Value = persnr
j = j + 1
letzterTag = Range("H" & j).Offset(-1, 1).Value
aktuellerTag = Range("H" & j).Offset(0, 1).Value
Loop
letzterTag = 0
Next i
End Sub