VBA der finder ens tal med modsat fortegn

Der findes løsninger hvor den bruger f.eks. dato og beløb til at afstemme en bankkonto med en posterings-ditto.

Jeg så i et tidligere job en løsning lavet hos et revisionsselskab, men den får man ikke lige ud af dem :-)

Et alternativ kunne være (en smule manuelt i første omgang) at lave alle beløb i posteringskontoen med modsat fortegn (gang med minus 1) og så sortere stigende, så skulle de gerne stå næsten under hinanden.

Const startRæk = 2          'kan justeres

Dim ark As Worksheet
Dim antalRæk As Integer, ræk As Integer, værdi As Double, søgRæk As Integer, fraRæk As Integer
Public Sub plusMinus()
    Application.ScreenUpdating = False
   
    antalRæk = Cells(Rows.Count, "E").End(xlUp).Row
    Set ark = ActiveSheet
   
    For ræk = 2 To antalRæk
        værdi = Range("E" & ræk)
   
        søgRæk = søgværdi(ark, "E" & startRæk & ":E" & antalRæk, værdi * -1)
        If søgRæk > 0 Then
            Range("F" & ræk) = Range("E" & ræk)
            Range("E" & ræk).ClearContents
           
            Range("F" & søgRæk) = Range("E" & søgRæk)
            Range("E" & søgRæk).ClearContents
        End If
    Next ræk
End Sub
Private Function søgværdi(arkNavn, område, id)
Dim c
    With arkNavn.Range(område)
        Set c = .Find(id, LookIn:=xlValues, lookAt:=xlWhole)
       
        If Not c Is Nothing Then
            søgværdi = c.Row
        Else
            søgværdi = 0
        End If
    End With
End Function

Jeps, Supertekst. Den løser mit problem lige som ønsket.
kim1a, tak for input.

ok..