Option Explicit

Private Const MAGIC_LIMIT = 900

Sub MarkFenced()
    MarkRange Range("B2:B685"), Range("C2"), Range("E2:G157")
End Sub

Private Sub MarkRange(dataRange As Range, targetRange As Range, condRange As Range)
    Dim drr As Variant: drr = dataRange.Value
    Dim trr As Variant: ReDim trr(1 To UBound(drr, 1), 1 To UBound(drr, 2))
    Dim crr As Variant: crr = condRange.Value
    
    Dim yd As Long
    Dim yc As Long
    For yd = 1 To UBound(drr, 1)
        trr(yd, 1) = 0
        For yc = 1 To UBound(crr, 1)
            If crr(yc, 3) > MAGIC_LIMIT Then
                If drr(yd, 1) >= crr(yc, 1) Then
                    If drr(yd, 1) <= crr(yc, 2) Then
                        trr(yd, 1) = 1
                        Exit For
                    End If
                End If
            End If
        Next
    Next
    
    targetRange.Resize(UBound(trr, 1), UBound(trr, 2)).Value = trr
End Sub