ColorIndex with VBA in column until text is found

Hello - I'm working with the code below. I'm trying to color column A blue, from a2 to a40. However I don't want to go all the way down to row 40, I want to stop where text Grand Total~ is found in Column B, in my case now thats B30...

I think I"m close, but need something in my loop statement that will stop at the point.

Sub Bluecolor()
Dim cE As Range
    Dim SrchRngE    

    Set SrchRngE = ActiveSheet.Range("A2", ActiveSheet.Range("A65536").End(xlUp))
    
    Do
        Set cE = Range("a2:a40") 'SrchRngE.Find("Call Center", LookIn:=xlValues)
        
        If Not cE Is Nothing Then cE.Interior.ColorIndex = 37 
    Loop While Not cE.Offset(0, 1) = "Grand Total~"

End Sub

Thanks for taking a look...