Conditional CountIfs using Arrays

Hello,

I have previously asked a similar question but I'm not sure how to tweak the solution provided. I'm trying to do a count with date reference to all other rows.
Count if column F's date (request date) is between that of column F (request date) and column H (fulfillment date) of every other row --> For each row, I want to count how many other rows are still in the pipeline (requested but has not been fulfilled)

A kind community member gave the following solution that worked (using arrays) but I previously did not ask abut the fulfilment date. Thus it only counts the number of rows with an earlier request date than the row in question.

Option Explicit

Public Sub count()
    Dim wb As Excel.Workbook
    Set wb = ThisWorkbook
    
    Dim ws As Excel.Worksheet
    Set ws = wb.Worksheets(1)
    
    Dim maxRow As Long
    maxRow = ws.Cells(ws.Rows.count, 1).End(xlUp).Row

    Dim dataRange As Excel.Range
    Set dataRange = ws.Range("F2:F" & maxRow)
    
        '// transfert data to a 2D array
    Dim dataSource() As Variant
    dataSource = dataRange.Value
    
        '// transfert data to a 2D array
    Set dataRange = ws.Range("K2:K" & maxRow)
    Dim dataTarget() As Variant
    dataTarget = dataRange.Value
    
        '// perform the counts
    Dim i As Long
    For i = LBound(dataSource, 1) To UBound(dataSource, 1)
        Dim count As Long
        count = 0
        
        Dim j As Long
        For j = LBound(dataSource, 1) To UBound(dataSource, 1)
            If (dataSource(j, 1) < dataSource(i, 1)) Then
                count = count + 1
            End If
        Next
        dataTarget(i, 1) = count
    Next
    
    dataRange.Value = dataTarget
    Set dataRange = Nothing
    Set ws = Nothing
    Set wb = Nothing
End Sub

Select allOpen in new window

I have tried to tweak it but the result is an empty column K

Option Explicit

Public Sub count()
    Dim wb As Excel.Workbook
    Set wb = ThisWorkbook
    
    Dim ws As Excel.Worksheet
    Set ws = wb.Worksheets(1)
    
    Dim maxRow As Long
    maxRow = ws.Cells(ws.Rows.count, 1).End(xlUp).Row

    Dim dataRange As Excel.Range
    Set dataRange = ws.Range("F2:F" & maxRow)
    
        '// transfert data to a 2D array
    Dim dataSource() As Variant
    dataSource = dataRange.Value
    
        '// transfert data to a 2D array
    Set dataRange = ws.Range("K2:K" & maxRow)
    Dim dataTarget() As Variant
    dataTarget = dataRange.Value
    
        '// MYCHANGES: set appt array
    Set dataRange = ws.Range("H2:H" & maxRow)
    Dim apptarray() As Variant
    apptarray = dataRange.Value
    
        '// perform the counts
    Dim i As Long
    For i = LBound(dataSource, 1) To UBound(dataSource, 1)
        Dim count As Long
        count = 0
        
        Dim j As Long
        For j = LBound(dataSource, 1) To UBound(dataSource, 1)
            If (dataSource(j, 1) < dataSource(i, 1) < apptarray(j, 1)) Then
                count = count + 1
            End If
        Next j
        dataTarget(i, 1) = count
    Next i
End Sub

Select allOpen in new window

Hope you are able to help me figure out!! Thank you

Link to my original question