Code:
Option Explicit
Sub RedniBroj()
' Zavisno da li je odgovarajucua celija kolone C (cl) neprazna
' formira se redni broj u koloni A
' pocevsi od nekog zadatog broja
' P.Jovanovic za elitesecurity.org
'
Dim sh As Worksheet
Dim rwEnd As Long             ' Poslednji red za koji se formira redni broj
Dim rw As Long                ' Brojac redova
Dim RedBr As Long             ' Redni broj
Const rwStart  As Integer = 8 ' Uslov da se pocinje od 8 reda
Const cl As Integer = 3       ' Kolona C  se koristi za uslov

'Unos pocetnog rednog broja
RedBr = Application.InputBox(Prompt:="Unesi pocetni redni broj", Title:="Poèetni broj", Default:=1, Type:=1)

Set sh = ActiveSheet          ' List na kojem se radi
rwEnd = sh.Cells(65535, cl).End(xlUp).Row        ' Poslednji popunjen red
For rw = rwStart To rwEnd
  If Len(Trim(sh.Cells(rw, cl).Text)) > 0 Then   ' Da li je æelija popunjena
     sh.Cells(rw, 1).Value = RedBr               ' Upis rednog broja u kolonu A
     RedBr = RedBr + 1                           ' Sledeci redni broj
  Else
     sh.Cells(rw, 1).Value = ""                  ' Prazna ćelija
  End If
Next rw

End Sub