Sn:drummers
Eğer formülleri makro içerisinde kullanacaksanız aşağıdaki makroları inceleyiniz.

Dim i As Range

For Each i In Range("D11:AH11")

i.Value = _

        "=IF(COLUMNS(R11C4:RC)<=RC48,IF(OR(WEEKDAY(R10C,2)=7,WEEKDAY(R10C,2)=6),""H"",""X""),"""")"

Next i

For Each i In Range("D12:AH12")

i.Value = _

        "=IF(COLUMNS(R12C4:RC)<=R[-1]C52,IF(OR(WEEKDAY(R10C,2)=7,WEEKDAY(R10C,2)=6),""H"",""X""),"""")"

Next i

For Each i In Range("D13:AH13")

i.Value = _

        "=IF(COLUMNS(R13C4:RC)<=R[-2]C56,IF(OR(WEEKDAY(R10C,2)=7,WEEKDAY(R10C,2)=6),""H"",""X""),"""")"

Next i

For Each i In Range("D14:AH14")

i.Value = _

        "=IF(COLUMNS(R14C4:RC)<=R[-3]C60,IF(OR(WEEKDAY(R10C,2)=7,WEEKDAY(R10C,2)=6),""H"",""X""),"""")"

Next i

Not:4 işçi için yapılmıştır gerisini inceleyerek uyarlayınız.