Hjælp til modificere makro

Jeg har følgende makro i ark1 der filtrerer posteringer jeg ønsker at udbygge.
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 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

Kan man ændre så den kun udligner hvis teksten i kolonne D er ens.
I kolonne D står en forkortelse af valutaer EUR,NOK,DKK,GPB
Jeg kan sende et ark så man kan se hvad jeg mener.
MVH
Petert