Hjælp til makro

Jeg har fået rigtig god hjælp af kabbak til denne makro bl.a i spørgsmål spm/758060  men der et problem der driller.
Jeg har to makroer først en der henter en fil og derefter en der finder ens tal et + og et i - og derefter oversterger disse så kun de tal der ikke passer sammen står åbne. Der sker bare det at så snart jeg henter filen ind med tal overstreger den de tal der passer sammen med det samme og ikke først når jeg kører makroen med afstemninger. Er der en måde man evt.kan gøre så man ophæver over stergningerne ??? jeg vedlægger først makro "hendt data" og derefter makro "afstemning"
Public Sub HenttxtData()
    Dim strline() As Variant, X As Long, Str As String, fileToOpen As String
    Dim RES() As Variant, I As Long, A As Variant, P As Long
    fileToOpen = "C:\Data\konti\konto 90020.txt" ' ret her hvis det er en anden fil
'    fileToOpen = "C:\test\konto 90020.txt"
    If Dir(fileToOpen) <> "" Then
        Open fileToOpen For Input As #1
        Line Input #1, Str
        Line Input #1, Str
        Line Input #1, Str
        Line Input #1, Str
        X = 0
       
        Do
            Line Input #1, Str
            If Str = "" Then
         
                Exit Do
            End If
            ReDim Preserve strline(X)
            A = Split(Str, vbTab)
            strline(X) = A(0)
            strline(X) = strline(X) & ";" & A(1)
            strline(X) = strline(X) & ";" & A(6)
            strline(X) = strline(X) & ";" & A(7)
            strline(X) = strline(X) & ";" & A(8)
            strline(X) = strline(X) & ";" & A(9)
            strline(X) = strline(X) & ";" & A(10)
            X = X + 1
        Loop Until EOF(1)
        Close #1
       
        P = X - 1
        ReDim RES(P, 6)
       
        For I = 0 To P
            A = Split(strline(I), ";")
            RES(I, 0) = A(0)
            RES(I, 1) = A(1)
            RES(I, 2) = A(2)
            RES(I, 3) = A(3)
            RES(I, 4) = A(4) * 1
                        If A(4) < 0 Then
                RES(I, 5) = A(5) * -1
            Else
                RES(I, 5) = A(5) * 1
            End If
         
      RES(I, 6) = A(6) * 1
        Next

        Range(Cells(2, 1), Cells(2, 7).Offset(P, 0)) = RES
    Else
        MsgBox " Filen findes ikke"
    End If
End Sub


Public Sub FiltreringAfPosteringer()

  ' Bemærk: Nedenstående er konstanter, og rutinen
  ' kræver derfor at data er placeret et konkret sted
  Const BeløbsKolonne As String = "E"
  Const StartRække As Integer = 1
  Const Regneark As String = "Ark1"
 
  ' Find sidste række
  Sheets(Regneark).Select
  Dim SlutRække As Integer
  SlutRække = Range(BeløbsKolonne & StartRække) _
  .CurrentRegion.Rows.Count + StartRække - 1
 
  ' Slet tidligere overstregninger
  Range(BeløbsKolonne & StartRække). _
  CurrentRegion.Font.Strikethrough = False
 
  Dim I As Integer, j As Integer
  Dim DebetBeløb As Double, KreditBeløb As Double
 
  ' Løb beløbskolonnen igennem fra start til slut
  For I = StartRække + 1 To SlutRække
    ' Gem beløb
    DebetBeløb = Range(BeløbsKolonne & I).Value
    ' Hvis det er et debetbeløb
    If DebetBeløb > 0 Then
      ' Løb beløbskolonnen igennem en gang til og
      ' led efter kreditbeløb
      For j = StartRække + 1 To SlutRække
        KreditBeløb = Range(BeløbsKolonne & j).Value
        If KreditBeløb < 0 And _
Range("D" & I).Value = Range("D" & j).Value Then

          ' Hvis debetbeløb og kreditbeløb er ens (+/-)
          ' og kreditbeløbet ikke tidligere er overstreget
         
          If DebetBeløb = KreditBeløb * -1 And _
          Not Range(BeløbsKolonne & j).Font.Strikethrough Then
            ' Overstreg både debet- og kreditbeløb
            ' og hop ud af løkke
            Range(BeløbsKolonne & I).Font.Strikethrough = True
            Range(BeløbsKolonne & j).Font.Strikethrough = True
            Exit For
          End If
         
        End If
      Next
    End If
  Next

End Sub