Escribe en un modulo el siguiente codigo

Sub Siguiente()
Dim n As Integer
n = Range("B2")
Range("B2") = CInt(n + 1)
End Sub

El titulo de este codigo "Siguiente" Lo escribes en el modulo de la hoja donde quieres tu consecutivo, o sea, así:
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Siguiente
End Sub

O Bien:
Dibuja un boton en la hoja donde quieres tu consecutivo, haz doble clic sobre el boton y en el modulo que aparece escribe:

Private Sub CommandButton1_Click()Dim n As Integer
n = Range("B2")
Range("B2") = CInt(n + 1)

End Sub

Para convertir numeros a letras, dentro del foro encontraras alguna funcion
suerte espero ayudarte