Пронумеровать столбец в зависимости от количества строк из другого столбца

Question

Я пытаюсь пронумеровать столбец A с шагом 1 в зависимости от того, сколько строк находится в столбце B Пример моего листа Excel

Код, который у меня есть в настоящее время, делает это, но верхнее число не равно 1. Мне нужно начать с 1 вверху и вести обратный отсчет.

Sub SecondsNumbering()

     Dim ws As Worksheet
     Set ws = ThisWorkbook.Sheets("Data Formatted")
     Dim LastRow As Long
     Dim i As Long

     With ws
         LastRow = .Cells(.Rows.Count, "B").End(xlUp).Row

         For i = 6 To LastRow
             .Cells(i, 1).Value = i - 1
         Next
     End With

End Sub

Таким образом, я подсчитываю количество строк в столбце.

Изменить: когда я задаю значение 7 для i, чтобы оно начиналось с 6 (именно здесь я хочу, чтобы данные начинались) это - вот что я получаю.

Answer 1

Как насчет ...

Option Explicit

Sub Test()

   Dim lCntr As Long

   lCntr = 6

   Do
      If (Cells(lCntr, 2) <> "") Then Cells(lCntr, 1) = lCntr - 5
      lCntr = lCntr + 1
   Loop Until Cells(lCntr, 2) = ""

End Sub

HTH