Sort the values depends upon first three segment

Dear expertise

I have data which is splited as minus and plus values along with MICR Code. on both side

i want sort the values both side from largest to smallest on both side, but same values repeat values are there but same MICR code.

i want match TE008-145788-109-E1207-008R-USD-INR & TE008-145788-109-E1307-008R-USD-INR first three segment value

if atleast two segment match then sort value to exact MICR code
TE014-145794-125-E1213-008R-USD-INR = 720995
TE014-145794-115-E1313-008R-USD-INR = -720995

Find the attachment

if you sort largest to smallest values it not come not exact plus minus segment.

for e.g 1058375 it reflect 5 line in both side but as per comparsion of micr code it not same in comparison of code
first three segment is not match TE016-252202-301 & TE016-252202-303 then check first two segment TE016-252202 & TE016-252202 but value should match

i want first three segment match with opposit segment code then cost should match, same cost but different Code is duplicate

yes i want to match data in column A and B against E and F

i couldnt get exact result what i looking for can u add working sheet ?

See Attachment!! Create New NameManager of PWC of Range E:E This is UDF Formula J2 =FUZZYFIND(A2,PWC) fill down. for cost DO=VLOOKUP(J2,$E$2:$F$23,2,0)
Here

Private Sub CommandButton21_Click()
     Dim ws As Worksheet
     Dim LRow As Long, i As Long, lval As String


   '~~> Change this to the relevant worsheet
    Set ws = ThisWorkbook.Sheets("Sheet1")

With ws
    '~~> Find Last Row in Col G which has data
    LRow = .Range("D" & .Rows.Count).End(xlUp).Row

    If LRow = 1 Then
        MsgBox "No data in column D"
    Else
        For i = 2 To LRow


             lval = "D"
            .Range("G" & i).Value = FuzzyFind(lval & i, .Range("PWC"))
        Next i
    End If
    End With

    End Sub


    Function FuzzyFind(lookup_value As String, tbl_array As Range) As String
    Dim i As Integer, str As String, Value As String
    Dim a As Integer, b As Integer, cell As Variant

    For Each cell In tbl_array
     str = cell
     For i = 1 To Len(lookup_value)
      If InStr(cell, Mid(lookup_value, i, 1)) > 0 Then
     a = a + 1
     cell = Mid(cell, 1, InStr(cell, Mid(lookup_value, i, 1)) - 1) & Mid   (cell, InStr(cell, Mid(lookup_value, i, 1)) + 1, 9999)
    End If
     Next i
     a = a - Len(cell)
     If a > b Then
       b = a
       Value = str
    End If
       a = 0
    Next cell
      If Value <> "" Then
         FuzzyFind = Value
      Else
         FuzzyFind = "None"
      End If
End Function

Code credits to Robert solution

Thank alot Sir It's work for me Solved