shorter version of this validation code

Hi,

Will need your help in re-writing this code (shorter version)

If CCI_OE.Range("OE_Rating1").Value = "Yes" And CCI_OE.Range("OE_Comment1").Value = "" Then
            CCI_OE.Range("OE_Comment1").Value = "NA"
        End If
        If CCI_OE.Range("OE_Rating2").Value = "Yes" And CCI_OE.Range("OE_Comment2").Value = "" Then
            CCI_OE.Range("OE_Comment2").Value = "NA"
        End If
        If CCI_OE.Range("OE_Rating3").Value = "Yes" And CCI_OE.Range("OE_Comment3").Value = "" Then
            CCI_OE.Range("OE_Comment3").Value = "NA"
        End If
        If CCI_OE.Range("OE_Rating4").Value = "Yes" And CCI_OE.Range("OE_Comment4").Value = "" Then
            CCI_OE.Range("OE_Comment4").Value = "NA"
        End If
        If CCI_OE.Range("OE_Rating5").Value = "Yes" And CCI_OE.Range("OE_Comment5").Value = "" Then
            CCI_OE.Range("OE_Comment5").Value = "NA"
        End If
        If CCI_OE.Range("OE_Rating6").Value = "Yes" And CCI_OE.Range("OE_Comment6").Value = "" Then
            CCI_OE.Range("OE_Comment6").Value = "NA"
        End If
        If CCI_OE.Range("OE_Rating7").Value = "Yes" And CCI_OE.Range("OE_Comment7").Value = "" Then
            CCI_OE.Range("OE_Comment7").Value = "NA"
        End If
        If CCI_OE.Range("OE_Rating8").Value = "Yes" And CCI_OE.Range("OE_Comment8").Value = "" Then
            CCI_OE.Range("OE_Comment8").Value = "NA"
        End If
        If CCI_OE.Range("OE_Rating9").Value = "Yes" And CCI_OE.Range("OE_Comment9").Value = "" Then
            CCI_OE.Range("OE_Comment9").Value = "NA"
        End If
        If CCI_OE.Range("OE_Rating10").Value = "Yes" And CCI_OE.Range("OE_Comment10").Value = "" Then
            CCI_OE.Range("OE_Comment10").Value = "NA"
        End If
        If CCI_OE.Range("OE_Rating11").Value = "Yes" And CCI_OE.Range("OE_Comment11").Value = "" Then
            CCI_OE.Range("OE_Comment11").Value = "NA"
        End If
        If CCI_OE.Range("OE_Rating12").Value = "Yes" And CCI_OE.Range("OE_Comment12").Value = "" Then
            CCI_OE.Range("OE_Comment12").Value = "NA"
        End If
        If CCI_OE.Range("OE_Rating13").Value = "Yes" And CCI_OE.Range("OE_Comment13").Value = "" Then
            CCI_OE.Range("OE_Comment13").Value = "NA"
        End If
        If CCI_OE.Range("OE_Rating14").Value = "Yes" And CCI_OE.Range("OE_Comment14").Value = "" Then
            CCI_OE.Range("OE_Comment14").Value = "NA"
        End If
        If CCI_OE.Range("OE_Rating15").Value = "Yes" And CCI_OE.Range("OE_Comment15").Value = "" Then
            CCI_OE.Range("OE_Comment15").Value = "NA"
        End If
        If CCI_OE.Range("OE_Rating16").Value = "Yes" And CCI_OE.Range("OE_Comment16").Value = "" Then
            CCI_OE.Range("OE_Comment16").Value = "NA"
        End If
        If CCI_OE.Range("OE_Rating17").Value = "Yes" And CCI_OE.Range("OE_Comment17").Value = "" Then
            CCI_OE.Range("OE_Comment17").Value = "NA"
        End If
        If CCI_OE.Range("OE_Rating18").Value = "Yes" And CCI_OE.Range("OE_Comment18").Value = "" Then
            CCI_OE.Range("OE_Comment18").Value = "NA"
        End If
        If CCI_OE.Range("OE_Rating19").Value = "Yes" And CCI_OE.Range("OE_Comment19").Value = "" Then
            CCI_OE.Range("OE_Comment19").Value = "NA"
        End If
        If CCI_OE.Range("OE_Rating20").Value = "Yes" And CCI_OE.Range("OE_Comment20").Value = "" Then
            CCI_OE.Range("OE_Comment20").Value = "NA"
        End If
        If CCI_OE.Range("OE_Rating21").Value = "Yes" And CCI_OE.Range("OE_Comment21").Value = "" Then
            CCI_OE.Range("OE_Comment21").Value = "NA"
        End If

Thanks in advance!

Closing, already found a solution:

Dim aaaa As Long
        
            For aaaa = 1 To 20
                If CFA_CM.Range("CFA_Rating" & aaaa).Value = "Yes" And CFA_CM.Range("CFA_Comment" & aaaa).Value = "" Then
                    CFA_CM.Range("CFA_Comment" & aaaa).Value = "NA"
                End If
            Next