VBA_lib - note4recurrent @ ウィキ

https://gomyownway.hatenablog.com/entry/2012/06/23/152950

　Sheets("Sheet2").Select

---

　Sub runover()
　'
　' 読み飛ばし
　'A列の1行目から開始し、空白になるまで読み飛ばす
　    Dim i As Integer
　    i = 1
　    While Cells(i, 1).Value <> ""
　        i = i + 1
　    Wend
　    Cells(i, 1).Value = "hogehoge"
　    
　End Sub