自动更新基于工作表中最后一个值的文本框值

我有这些在工作表中

然后在一个用户表单中，当我改变这个章节时，编号部分会自动更新，如果在工作表上，第一章的最后一个编号是1，那么用户表单自动更新为2，然后和第二章一样， 3。

这是我试过的：

Dim label As Control For ctr = 1 To InfoForm.Chapter.ListCount - 1 For Each label In InfoForm.Controls If TypeName(label) = "Label" Then i = i + 1 Dim WhatChapter As String WhatChapter = InfoForm.Chapter lastNum = Cells(.Rows.Count, "A").End(xlUp).Row If WhatChapter = "Chapter " & ctr Then If Cells(lastNum, i).Value = "No." Then Num.Value = 1 Else Num.Value = Cells(lastNum, i).Value End If End If End If Next Next ctr