Date-based VBA macro selects wrong cell.

I have a VBA macro in place which should go line by line and check one date against another to check for overdue information. If the first date is more than 30 prior to today's date a message box should say "Overdue" and if it is within 30 days it should say "Okay." However, when it goes through the macro it puts "Okay" on the line below the line where it should appear. The macro is triggered by a button.

I realize the code below has additional variables which are not used, but they are necessary for the remainder of the project.

Sub CommandButton_Click()
Dim Test As String, Column As String, Row As Integer, Status As String, Name As String, NameRef As String, CompColumn As String, CompTest As String, CompDate As Date, DueDate As Date, DateToday As Date, DateTest As String

Test = ""
Column = "AA"
Row = 13
Test = Test & Column & Row
Status = ""
Name = ""
CompColumn = "Z"
CompTest = CompColumn & CStr(Row)

CompDate = CDate(Sheets("Cleco").Range(CompTest))
DueDate = DateAdd("d", 30, CompDate)

DateToday = Date

Do While Row < 27
    If DateToday > DueDate Then
        DateTest = "Overdue"
        
        CompTest = CompColumn & CStr(Row)
        CompDate = CDate(Sheets("Cleco").Range(CompTest))
        DueDate = DateAdd("d", 30, CompDate)
        
        Status = Status & vbCrLf & DateToday & " " & DueDate & " " & DateTest & " " & Row
        
        Row = Row + 1
       
    Else
        DateTest = "Okay"
        
        CompTest = CompColumn & CStr(Row)
        CompDate = CDate(Sheets("Cleco").Range(CompTest))
        DueDate = DateAdd("d", 30, CompDate)
        
        Status = Status & vbCrLf & DateToday & " " & DueDate & " " & DateTest & " " & Row
        
        Row = Row + 1
    End If
    

Loop


MsgBox Status

End Sub

Attach a sample workbook. Make sure there is just enough data to make it clear what is needed. Include BEFORE/AFTER sheets if needed to show the process you're trying to complete or automate. Remember to desensitize the data.

Click on GO ADVANCED and use the paperclip icon to open the upload window.

View Pic