Amigo,
Coloque essa formula na coluna A =ÍNDICE(A2:A4;CORRESP(B1;B2:B4;0)) ( Conhecido como procv ao contrário ). ai você digita a data na coluna B e aparece o valor correspondente na coluna A.

Não sei se é isso que você queria.

Caio Fernando Do Nascimento,
tentei aqui e não deu certo.
Preciso que ao digitar a data na coluna B (uma data embaixo da outra na coluna B) na coluna A vai numerando a sequencia por exemplo B A
20/04/2016 1
21/04/2016 2 e assim por diante. grato por ter respondido.

Pode ser assim....

Private Sub Worksheet_Change(ByVal Target As Range)

Dim cont As Long
Dim linha As Long

linha = Range("A" & Rows.Count).End(xlUp).Row
cont = Cells(linha, 1).Value

If Target.Column <> 2 Then Exit Sub

If Range("B" & Target.Row).Value <> "" Then
   Range("A" & Target.Row).Value = cont + 1
   
End If

End Sub

Cole no modulo da planilha no lugar do outro codigo.

Funcionou certinho Marcelo Prudencio, muito obrigado. abraços.