Sub AutoNum()
Dim rngStart, rngC As Range
Set rngStart = Range(Cells(1, "B"), Cells(Cells(Rows.Count, "A").End(xlUp).Row, "B"))
Application.ScreenUpdating = False
For Each rngC In rngStart
rngC.Value = rngC.Row
Next rngC
Application.ScreenUpdating = True
End Sub
Sub AutoNum()
Dim rngStart, rngC As Range
Set rngStart = Range(Cells(4, "B"), Cells(Cells(Rows.Count, "A").End(xlUp).row, "B"))
Application.ScreenUpdating = False
For Each rngC In rngStart
rngC.Value = rngC.row
Next rngC
Application.ScreenUpdating = True
End Sub
Sub AutoNum()
Dim rngStart, rngC As Range
Set rngStart = Range(Cells(4, "B"), Cells(Cells(Rows.Count, "A").End(xlUp).row, "B"))
Application.ScreenUpdating = False
For Each rngC In rngStart
rngC.Value = rngC.row-3
Next rngC
Application.ScreenUpdating = True
End Sub