составить график выхода на работу при 176 часов в месяц при

Dim s As Integer, d As Date, h As Integer
d = CDate(InputBox("Введите дата начала графика", , "2016/01/02"))
Do While s lt; 176
h = Weekday(d, vbMonday)
If h lt;gt; 7 Then
s = s + 8
Cells(i + 1, 2) = s
Cells(i + 1, 3) = d
End If
Cells(i + 1, 4) = h
i = i + 1
d = d + 1
Loop