Excel VBAで"コンパイルエラー: プロシージャの外では無効です"というエラーがでます。

"コンパイルエラー: プロシージャの外では無効です"というエラーがでます。

vba
Sub create_wbs_table()
    ' Use ActiveSheet for convenience
    Dim ws As Worksheet: Set ws = ActiveSheet
    
    ' Define column headers
    Dim headers() As Variant: headers = Array("Task ID", "Task Description", "Assigned To", "Start Date", "End Date", "Comments")
    
    ' Define dummy data for tasks
    Dim data(9, 5) As Variant
    Dim i As Integer
    For i = 0 To 9
        data(i, 0) = "T" & i + 1
        data(i, 1) = "Task " & i + 1
        data(i, 2) = "Member " & i + 1
        data(i, 3) = "2022-12-01"
        data(i, 4) = "2022-12-31"
        data(i, 5) = "No comments"
    Next i
    
    ' Write headers to the sheet
    Dim j As Integer: For j = 0 To UBound(headers)
        ws.Cells(1, j + 1).Value = headers(j)
    Next j

    ' Write data to the sheet
    For i = 0 To UBound(data, 1)
        For j = 0 To UBound(data, 2)
            ws.Cells(i + 2, j + 1).Value = data(i, j)
        Next j
    Next i
End Sub