Skipping a row if a value is present

[kpierce]

Hello,
Thanks for all the help on this forum, I am just about finished with my spreadsheet. I could have not done it without everyone's support.

I do need one additional piece of guidance.

The following code works great, but what I need to do now, is check column U and if this has a value of "No", skip to the next row in the desitnation worksheet.

Logically that is simple enough, just IF U="No", but then that seems to throw everything off...

I want to check the destination cell "U" & cDestRow and if it is "No", go to the next cDestRow, and if that one is "No", go to the next and so on. Until it finds an open cDestRow (where U<>"No") or cDestRow = 31.

Any guidance is much appreciated. I have been monkeying with this all day and I am sure it is something very simple.
thanks

    For Each ws In ActiveWorkbook.Sheets
 
        If ws.Range("A2") = "Project Status Report:" Then
            For Each RCell In ws.[R25:R31]
                If RCell.Value = "Yes" Then
                   ' Write Status and Description
                   Set rngDest = Sheets(PMSheet).Range("K" & cDestRow, "M" & cDestRow)
                    rngDest.Value = ws.Range("I" & RCell.Row, "K" & RCell.Row).Value
                   ' Write Owner and Due Date
                   Set rngDest = Sheets(PMSheet).Range("S" & cDestRow, "T" & cDestRow)
                    rngDest.Value = ws.Range("P" & RCell.Row, "Q" & RCell.Row).Value
                        cDestRow = cDestRow + 1
                    If cDestRow = 31 Then
                        MsgBox "There are more than seven items escalated from Projects to the Program, only first Seven have been imported"
                        Exit For
                    End If
                End If
            Next RCell
        End If
    Next ws