Sub testLOOP()


Range("k3").Select
Do
If Selection > 250 Then
Selection.Offset(0, 3).Value = "ss"
Selection.Offset(1, 0).Select
Else
Selection.Offset(0, 3).Value = "ee"

Selection.Offset(1, 0).Select
End If
Loop Until Selection = Range("k25")
End Sub

VBAで上記のコードを実行した時にk列の値が0か空白になったとき
そこでとまります。
なぜですか？あと、0や空白のセルがあってもk25までループする
方法を教えてください。
（超初心者なので悪しからず・・・）