Sub aaaaaaaabbb()
    Dim arr()
    Dim i As Long
    Dim q As Variant
    Dim matchFound As Boolean
    Dim numColumns As Long

    lLastRowA = Sheets("A").Cells(Rows.Count, 1).End(xlUp).Row
    lLastRowB = Sheets("B").Cells(Rows.Count, 1).End(xlUp).Row
    Set rngA = Sheets("A").Range("A2:C" & lLastRowA)
    Set rngB = Sheets("B").Range("A2:C" & lLastRowB)
    numColumns = rngA.Columns.Count
    
    ReDim arr(1 To lLastRowA, 1 To numColumns)
    
    For rA = 1 To rngA.Rows.Count
        matchFound = False
        For rB = 1 To rngB.Rows.Count
            If rngA(rA, 1) = q Then
                Exit For
            End If
            If rngA(rA, 1) = rngB(rB, 1) Then
                If rngA(rA, 3) - rngB(rB, 2) > 0 Then
                q = rngA(rA, 1)
                    Exit For
                End If
                matchFound = True
                Exit For
            End If
        Next rB
        
        If Not matchFound Then
            i = i + 1
            For j = 1 To numColumns
                arr(i, j) = rngA(rA, j)
            Next j
        End If
    Next rA
    
        Sheets("A").Range("A2:C" & lLastRowA).ClearContents
        Sheets("A").Range("A2").Resize(i, 3).Value = arr
End Sub