Springe over rækker i eksport

Hej

Jeg har tidligere fået vedlagte kode som jeg har tilpasset lidt, men nu har jeg det problem at jeg gerne vil springe over en hel række i eksporten hvis den første celle i rækken indeholder en bestemt værdi, f.eks.
"Nej". Kan nogen hjælpe med det ?

Sub Question279475()
    Dim rSheet As Worksheet
    Dim rUsedRange As Range
    Dim rRow As Range
    Dim rCell As Range
    Dim lFileNum As Long
    Dim sLine As String
    Dim sLine2 As String
    Dim taeller As String
   
    taeller = 0
   
    Set rSheet = Sheets("Output")
    Set rUsedRange = rSheet.UsedRange
    ' If rSheet contains headings not to be show'n in file - then activate next line
    'Set rUsedRange = rUsedRange.Offset(1, 0).Resize(rUsedRange.Rows.Count - 1)
    lFileNum = FreeFile

    Open "c:\Upload\output.txt" For Output As #lFileNum
        For Each rRow In rUsedRange.Rows
            sLine = ""
         
            For Each rCell In rRow.Cells
           
              sLine = sLine & Trim(CStr(rCell.Value)) & ";"
                taeller = taeller + 1
   
            Next rCell
    If Len(sLine) > 0 Then    'skal ikke skrive en tom linie
            sLine2 = Mid(sLine, 1, Len(sLine) - 1)
            Print #lFileNum, sLine2
    End If
        Next rRow
    Close #lFileNum
    MsgBox "" & taeller & " vare blev eksporteret til "
    'Clean up
    Set rSheet = Nothing
    Set rUsedRange = Nothing
    Set rRow = Nothing
    Set rCell = Nothing
End Sub