Autolnumber на основе значения последней ячейки в строке

Question

Следующий код добавляет автоколонки в столбец A, если в столбце B есть значение, я хотел бы изменить этот код, чтобы он начинал добавлять счетчик автономных номеров с последней строки вниз. Почему ?, потому что если я удаляю любую из строк с номерами уже в первом столбце, т.е. после удаления 5-й и 6-й строк у меня есть последовательность в первом столбце 1, 2, 3, 4, 7, 8. После запуска моего кода он вернется к 1, 2, 3, 4, 5, 6, но если может начинаться с последней строки вниз и будет выглядеть следующим образом: 1, 2, 3, 4, 7, 8, 9, 10 и т. д. Другими словами, он не должен изменять существующие строки, просто продолжая нумерацию вновь добавленных строк. Как я могу это сделать?

Sub AutoNumber()
    Dim lastRow As Long
    lastRow = Range("B" & Rows.Count).End(xlUp).Row
    Range("A1").AutoFill Destination:=Range("A1:A" & lastRow), Type:=xlFillSeries
End Sub

Answer 1

Я предпочитаю DataSeries вместо AutoFill для последовательной серии.

Sub AutoNumber()
    Dim lastRowA As Long, lastRowB As Long
    lastRowA = Range("A" & Rows.Count).End(xlUp).Row
    lastRowB = Range("B" & Rows.Count).End(xlUp).Row
    Range(cells(lastrowa, "A"), cells(lastrowb, "A")).DataSeries _
       Rowcol:=xlColumns, Type:=xlLinear, Date:=xlDay, Step:=1, Trend:=False
End Sub