如何使用VBA计算包含值的表的最后一行

Question

晚上好

我有一个表，该表可能包含也可能不包含如下图所示的值：

我要计算包含值的表的“电路”的最后一行。以图片为例，我的代码一直计数到第21行。如果我从第19行中删除这些值， 20和21，我的代码一直计数到第13行（表的最后一行，为空）

'1. Counts the table for the number of circuits and cable runs and saves it to an array

    LR = Cells(Rows.Count, 2).End(xlUp).Row                                             'Last item in row 2
    'MsgBox LR
    Array_circ = Range(Cells(4, 2), Cells(LR, 2)).Value                                 'Array that stores column B values
    Array_trecho = Range(Cells(4, 3), Cells(LR, 3)).Value                               'Array that stores column C values

    NumCirc = UBound(Array_circ)                                                        'Last circuit number, so we can use it as a counter

我希望我的代码一直计数到第10行（在图片的情况下），而不要计数到下面的输入行或表的末尾。

有人可以替代吗？谢谢。