Boa tarde!!

Criando um contador, onde ao selecionar cada linha terá o índice correspondente.
Índice baseado na coluna F

 Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
    Dim RowOffset As Long
    Dim IndexCol As String
    RowOffset = 0
    IndexCol = "F"
    Intersect(ActiveCell.EntireRow, Columns(IndexCol)).Value = ActiveCell.Row + RowOffset
End Sub

Baixe rquivo em:
http://www.sendspace.com/file/gnqrfx

Att