excelマクロについて

質問

お世話になります。

下記のように間引きしたいのですが、
0.10.20.30,40,50.60→0.100.200

何故か80からスタートしてしまいます。
0.10.20.30,40,50.60→80.180.280

宜しくお願いします。

Sub test()
Application.ScreenUpdating = False
i = 1 '1行目の意味
mydata = Cells(i, 1) 'A列でデータが存在するか判定
Do Until mydata = "" '空白になるまで繰り返し処理
Rows(i).Resize(9).Delete '9行の削除
i = i + 1
mydata = Cells(i, 1)
Loop
Application.ScreenUpdating = True
End Sub

回答No.1

mt2008

1行目に項目名か何かが入っていて2行目が0、3行目が10、……　と言う並びでしょうか？
そうであれば以下の様に変える事でとりあえずお望みの動きになるかと思います。

i = 1 '1行目の意味
　↓
i = 3