do while..loop

Sub while實例()
Dim rs%
rs = 2
Do While Cells(rs, 2) <> ""
If Cells(rs, 2) >= 90 Then Cells(rs, 3) = "good"
rs = rs + 1
Loop
End Sub