Не совсем понятно для чего или где это Вам надо, если просто пронумеровать строки в таблице слоя, то
Static rec As Long
Static i As Long
Dim lStart As Long
Dim lInterval As Long
lStart = 1
lInterval = 1
If (i = 0) Then
rec = lStart
Else
rec = rec + lInterval
End If
i = i + 1