Sub Edinichki()
Dim x, y(), i&, j&, k&
Dim dtBg As Date, dtEd As Date
With Sheets("График")
    With .Range("L7:Q" & .Cells(Rows.Count, "L").End(xlUp).Row)
        dtBg = WorksheetFunction.Min(.Cells)
        dtEd = WorksheetFunction.Max(.Cells)
        x = .Value
    End With
End With

ReDim y(1 To UBound(x) + 1, 1 To dtEd - dtBg + 1)
For j = 1 To UBound(y, 2)
    y(1, j) = dtBg + j - 1
Next j
For i = 1 To UBound(x)
    For j = 1 To UBound(x, 2) Step 2
        If IsDate(x(i, j)) Then
            For k = x(i, j) To x(i, j + 1)
                If Weekday(k, 0) < 7 Then y(i + 1, k - dtBg + 1) = 1
            Next k
        End If
    Next j
Next i

Sheets("График").Range("R6").Resize(UBound(y, 1), UBound(y, 2)).Value = y
End Sub