Copy Paste based on comparisons calculations in 2 XL files, 1 might be .csv file .Opened in XL=Fail/Chaos

[DocAElstein]

Try

Sub STEP8()
Dim Wb1 As Workbook, Wb2 As Workbook
Dim Ws1 As Worksheet, Ws2 As Worksheet
Set Wb1 = Workbooks.Open("C:\Users\WolfieeeStyle\Desktop\1.xls")
Set Wb2 = Workbooks.Open("C:\Users\WolfieeeStyle\Desktop\Alert..csv")
Set Ws1 = Wb1.Worksheets.Item(1)
Set Ws2 = Wb2.Worksheets.Item(1)
Dim Rg1 As Range, RngSrchIn As Range
 Set Rg1 = Ws1.Cells.Item(1, 1).CurrentRegion
Dim Lr2 As Long: Let Lr2 = Ws2.Range("B" & Ws1.Rows.Count & "").End(xlUp).Row
 Set RngSrchIn = Ws2.Range("B1:B" & Lr2 & "")
Rem 2
Dim Cnt
    For Cnt = 2 To Rg1.Rows.Count
    Dim cRng As Range
     Set cRng = RngSrchIn.Find(What:=Ws1.Cells.Item(Cnt, 9), LookIn:=xlValues, Lookat:=xlWhole, searchorder:=xlByRows, Searchdirection:=xlNext, MatchCase:=True)
        If Not cRng Is Nothing Then
            If Not cRng.Value = "" Then
        
                If Ws1.Cells(Cnt, 8) > Ws1.Cells(Cnt, 4) Then
                 Let cRng.Offset(, 2).Value = "<"
                 Let cRng.Offset(, 3).Value = Ws1.Cells(Cnt, 11)
                ElseIf Ws1.Cells(Cnt, 8) < Ws1.Cells(Cnt, 4) Then
                 Let cRng.Offset(, 2).Value = ">"
                 Let cRng.Offset(, 3).Value = Ws1.Cells(Cnt, 11)
                Else
                End If
            Else ' cell is empty
            End If
        Else
        
        End If
    Next Cnt

End Sub