特定範囲内の最終行を取得したい

Question

###前提・実現したいこと
ここに質問したいことを詳細に書いてください
タスク管理をするシステムを作っています。
VBAでセルC9からセルにデータが入っている最終行まで（ここではC17）を取得したい場合はどのようなコードを書けば良いでしょうか？また、C17の下にさらにタスクが増えていった場合にも対応できるようなコードはどのように書けば良いでしょうか？現状、9行から17行まで固定でコードを書いています。

タスクが入力されているシートは「list」シートとして名前が付けてあります。
「list」シートのプロジェクト１にあるタスクを読み込んだ後、新規で作成した別シートにそのタスクのデータを使用します。

###該当のソースコード

Option Explicit

Dim i
Dim task

Sub CreateChart()
    'シートを新規作成
    Worksheets.Add
    'シートを正方形にする
    Cells.Select
    ActiveSheet.Name = "chart"
    Selection.ColumnWidth = 1.6
    '１マスを１０分単位としてタスクを作成
    For i = 9 To 17
        task = ThisWorkbook.Worksheets("list").Cells(i, 3).Value
        Worksheets("chart").Cells(i - 8, 1).Value = task
    Next
End Sub

###試したこと
最終行取得を試みましたが、空白セルもカウントされてしまい、うまくいきませんでした。

分かる方、よろしくお願いします。

Answer 1

解決済みですが、あえて回答します。

Cells(9, 3)を起点として空白行の前までの最終行は Cells(9, 3).End(xlDown).Row で取得できます。

コード例

    Dim StartRow As Long, EndRow As Long
    With ThisWorkbook.Worksheets("list")
        startRow = 9
        EndRow = .Cells(startRow, 3).End(xlDown).Row
        For i = startRow To EndRow 
            task = .Cells(i, 3).Value
            '略
        Next
    End With

Answer 2

見る限りプロジェクトの間に空白のセル(18行目、19行目)があるようなので、少しぶっさいくですが

Dim Row As Integer
Row = 9
While (Cells(Row, 3) <> "")
  Row = Row + 1
Wend
MsgBox (Row)

みたいにループ回すとか

Answer 3

セル範囲の取得辺りかと思います。
regionは、リージョンと読むようで、regionかリージョンで検索すると色々出てくるかと思います。