根据另一列的行数对列进行编号

Question

I am trying to number column A in increments by 1, based on how many rows are in column B Example of my Excel sheet

The code I currently have does this, but the top number does not end up being 1. I need to start with 1 at the top and count down.

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

With this, I am counting the number of rows in the column.

Edit: When I do the value 7 for i, so that it starts at 6 (which is where I want data to start) this is what I get.

Answer 1

How about...

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