Worksheet_Change, que al ingresar un dato en la columna a, enumere en la columna b

Lo que quiero obtener es que si ingreso un dato en la columna a, se enumere de forma automática en la columna b en forma correlativa a partir de la primer número colocado en la columna b1; por ejm si escribo

 en [b1] 36

Al digitar en a2 "texto cualquiera", en en la columna b2 sea 37

Al digitar en a3 "texto cualquiera", en en la columna b3 sea 38

Y así correlativo tomando como inicio el valor de la columna b1