C列の下４桁の数字 「0926」 以下の行を削除するには？（例外）
似たような質問で、申し訳ございません。
http://oshiete1.goo.ne.jp/qa2985040.html
今回は、以前にしました質問の、 「 例外の場合 」 の質問でございます。（前回質問は、解決しております）
C列の下４桁の数字 「0926」 以下の行を削除したいと思っております。
下記コードで実行した場合、下記例の場合は、「 Rows(2) 」 ～ 「 Rows(4) 」 はきちんと削除します。
このコードを
C列のデータのある最終行から上へ順に参照して行き、最初に 「 0926 」以下の数字があったら、その行から上へ
「 Rows(2) 」 までの行を全部削除するにはどのようなコードになりますでしょうか ？
つまり、下記実行後のように「 Rows(2) 」 ～ 「 Rows(9) 」 を削除するにはどのようなコードになりますでしょうか ？
C列の数字は必ず、7桁か8桁です。（上２桁は月数字1～12のためです）
何卒、ご教示くださいませ。
---------------------------------------------
Private Sub 指定数字以下の行を削除()
Dim i As Integer
On Error Resume Next
For i = 1 To Worksheets.Count - 1
'---------
With Worksheets(i)
Do While Val(Right(.Range("C2"), 4)) <= 926 And .Range("C2") <> ""
.Rows(2).Delete
Loop
End With
'---------
Next i
End Sub
---実行前------------------------------------
C
数字
4030907
4030914
4030923
4030931
4030940
4030947
4030914
4030923
4030931
4030940
---実行後------------------------------------
C
数字
4030931
4030940
![その他([技術者向] コンピューター) イメージ](https://gazo.okwave.jp/okwave/spn/images/related_qa/c205_4_thumbnail_img_sm.png)
お礼
ありがとうございました＾＾ こんな簡単なことでよかったんですね。 ずっと悩んでいたので助かりました。