Autofill cells in column with sequential numbers

Hello clwrs,

This macro will place a sequential value in each cell in column "E" that isn't empty. It uses column "A" to determine the last cell.

Sub Macro1()

  Dim Cell As Range
  Dim Cnt As Long
  Dim Rng As Range
  
    Cnt = 1
    Set Rng = Range("A2", Cells(Rows.Count, "A").End(xlUp))
    
      For Each Cell In Rng
        If WorksheetFunction.CountA(Cell.EntireRow) <> 0 Then
           Cells(Cell.Row, "E") = Cnt
           Cnt = Cnt + 1
        End If
      Next Cell
      
End Sub