Añadir una serie de datos a una columna ya copiada

Hola chicos!
Tengo una duda,
Tengo esta columna A (en realidad son casi 15.000 datos)
756
756
756
881
881
881
881
111
111
223
223
223
223
Me gustaría poner en la columna B
1
2
3
1
2
3
4
1
2
1
2
3
4
Es decir, añadir una serie cada vez que empiece un nuevo numero en la columna A.
Como he dicho, gracias a todos por leerlo porque quizás sea imposible o casi.
Gracias al experto calvuch, obtuve esta macro;
en el evento Worsheet Change de la hoja utiliza este macro: 
Private Sub Worksheet_Change(ByVal Target As Range) 
Dim anterior As Variant 
Dim c As Long 
If Target.Column <> 1 Then Exit Sub 
If Target.Row = 1 Then Cells(Target.Row, 2) = 1 
On Error Resume Next 
If Target.Value = Cells(Target.Row - 1, 1) Then 
Cells(Target.Row, 2) = Cells(Target.Row - 1, 2) + 1 
Else 
Cells(Target.Row, 2) = 1 
End If 
End Sub
Ahora bien, el problema que da esta macro es que tengo que ir metiendo datos 1 a 1 y 15.000 son muchos datos, ¿podría haber una forma de añadir esta serie a datos ya incluidos en una columna?
Gracias mil!