フォームからテーブルへの転記

質問

下記はフォームに入力した項目をテーブルに転記するコードです。
Private Sub CommandButton1_Click()

Dim ws As Worksheet
Dim tbl As ListObject
Dim newRow As ListRow
Dim lastRow As Long
Dim i As Long

Set ws = Worksheets("シート1")
Set tbl = ws.ListObjects("テーブル")

' Find the last row in the table

lastRow = tbl.ListRows.Count + 1

' Add a new row to the table
Set newRow = tbl.ListRows.Add(lastRow)

' Add the data to the new row
newRow.Range.Cells(1, 1).Value = tbl.ListRows.Count

For i = 1 To 7
newRow.Range.Cells(1, i + 1).Value = Me.Controls("TextBox" & i).Value
Next i

' Clear the form
For i = 1 To 7
Me.Controls("TextBox" & i).Value = ""
Next i

Sheets("シート1").Select

ActiveWorkbook.Save

Unload フォーム1

End Sub

このコードを実行した時に、最初のセルには、テーブルでの行番号が挿入されますが（1から始まる）挿入される番号を、23300から始めるにはどうしたらいいでしょうか？(23300＋行番号)

回答No.1

kkkkkm · ベストアンサー

newRow.Range.Cells(1, 1).Value = tbl.ListRows.Count + 23300

にしてみてください。

お礼

ご指摘頂いた通り修正しまして、出来ました！本当にありがとうございます！