Do While IsEmpty Help

Hello, I just started learning VBA. I'm trying to write additional code that will check if a cell is empty within a specific column of a list/table, and if it is, it will go down a row until it hits a cell that isn't empty. Then it will go 1 cell to the left and add the comment "Pass", and finally go to the next cell that was originally checked if it was empty or not. I want this entire process to keep looping, something like the below code but it doesn't work-

Sub AddComments()
Do While IsEmpty(ActiveCell)
    Do While IsEmpty(ActiveCell)
    ActiveCell.Offset(1, 0).Select
    Loop
    ActiveCell.Offset(0, -1).Select
    ActiveCell.Value = "Pass"
    ActiveCell.Offset(1,1).Select
    Loop
End Sub

That 2nd loop I'd want to return to the beginning of the first Do While, but it's not working. I think a Go To could be added for the beginning of the Do While, but I'd prefer not to use that because the lines could need updating. I'm interested in learning a better way to solve this issue so I can learn more. Another benefit is if someone ever needs to update my macro, they wouldn't have to worry about my Go To code.

Does anyone have some advice as to how I can approach this?

Thanks!

Thank you for your valuable input! Since I'm still learning, I'm not aware of an easier way to code it so that it would know I've reached the last cell I would want it to loop through. I've tried attaching an example workbook of what my actual workbook looks like - I hope that helps visualize!

Column C is the result of a match function. Column B are notes provided that I need to overwrite with the word "Pass" if the cells in Column C are not blank. Column A always has data filled in for every cell within my list.

I've attempted using your proposed code to see how it works, but the line "LastRow = Cells(Rows.Count, ActiveCell.Columnn).End(xlUp).Row" gives me an excel prompt "Run-time error '438': Object doesn't support this property or method"

I have an idea of what that code is trying to do and it seems like it's a step in the right direction for me, I'm just not 100% sure of everything it's doing. I don't think I'll have much more time tonight to look into it but tomorrow I can research what it's doing.

Sorry, I didn't test it. There is an extra n at the end of Column. Here is a fix with an explanation.

It looks like your code above starts with whatever the current active cell is, but from your later explanation it sounds like you want to check every cell in column C.

Your sample file doesn't match your explanation. There are lots of values in column C that don't have a Pass in column B. But if you want a Pass for every nonblank in column C, then do this. Based on your explanation, you will always be checking all rows, and always column C. So I have made a couple of tweaks.

   Dim LastRow As Long
   Dim R As Long ' row
   Dim C As Long ' column
   
   LastRow = Cells(Rows.Count, "C").End(xlUp).Row ' Find the last cell in column C that has data

   For R = 1 To LastRow ' for all rows from 1 to the last row
      If Cells(R, "C") <> "" Then ' if the cell in column C is nonblank (you could also use Not IsEmpty)
         Cells(R, "B") = "Pass" ' set the cell in that row, column B, to Pass
      End If
   Next R