Stop at first Empty Row/cell in Column B - Fill Data

[ctild]

I have a worksheet that includes a list of items in Column B, starting at Cell "B25". But the length of the list is not consistent. In Column S I have to fill in text against each item listed in Column B, but if no Data available I leave the corresponding cell in Column S Blank.
<?xml:namespace prefix = o ns = "urn:schemas-microsoft-comfficeffice" /><o></o>
What I'm looking for is:-
Until it hits the last entry in Column B, a code that will check for each entry in Column B, a blank cells exists in Column S. If it finds a blank cell in Column S, insert the default text of "Box 1".

<o></o>
Any help appreciated.<o></o>

 

[Joe4]

This macro should do that:

Sub MyAutoFillLoop()
 
    Dim myLastRow As Long
    Dim myRow As Long
    
    Application.ScreenUpdating = False
    
'   Find last row with data in column B
    myLastRow = Cells(Rows.Count, "B").End(xlUp).Row
    
'   Loop through rows 25 to last row in column B
    For myRow = 25 To myLastRow
'   Check for entries in column B and S and populate S, if necessary
        If Len(Cells(myRow, "B")) > 0 And Len(Cells(myRow, "S")) = 0 Then
            Cells(myRow, "S") = "Box 1"
        End If
    Next myRow
    
    Application.ScreenUpdating = True
    
End Sub