excel-在动态表格中递增数字序列

我有一个程序叫做TableNumberSequence这会添加一个表行，暂停一秒钟，然后添加另一行。它会一直这样做，直到代码中指定了什么< 9.

目前，这些行是空白的。问题是我不知道如何从中生成数字序列1到8来填充行。

我知道如何用一个For Each在桌子外面打圈，但在桌子里面打圈让我头疼。

数字序列循环。xlsb

Sub TableNumberSequence()

Dim tbl As ListObject
Dim rng As Range
Dim n As Integer

Set tbl = Worksheets("Sheet1").ListObjects("Table1")

Set rng = tbl.ListColumns("Number").DataBodyRange

Call DeleteAllRows

    n = 1
    
    Do While n < 9
    
    Call IntervalTime

        n = n + 1
        
    Call AddRow
        
    Loop

End Sub

这些附加程序在主程序中称为。

Sub AddRow()

    Dim ws As Worksheet
    Dim tbl As ListObject

    Set ws = Worksheets("Sheet1")
    Set tbl = ws.ListObjects("Table1")

    tbl.ListRows.Add

End Sub

Sub DeleteAllRows()

    With Range("Table1").ListObject
        If Not .DataBodyRange Is Nothing Then
            .DataBodyRange.Delete
        End If
    End With

End Sub

Sub IntervalTime()
   
   Dim target As Date

   target = Now + TimeValue("00:00:" & Range("Interval").Text)
   
    Do
       DoEvents
    Loop Until Now >= target
   
End Sub