Problema con el llenado automático de números de serie en EXCEL VBA

Debido a que el método de autocompletar se llena, cuando solo tiene 1 o 2 filas, se llena solo, por lo que no es válido.

Subtest()

Dimensiones i, j, x

I = rango("b65536"). final (xlup). Obtenga el número de fila de la última celda no vacía en la columna b.

Si salgo del programa cuando no hay datos y solo existe la fila del encabezado.

Para x=3 a I

if celdas (x, 2) lt; gt" "Entonces j = j 1: celdas (x, 1) = j 'Juzga B si la columna está vacía. De lo contrario, escriba el número de secuencia j 1 en la celda correspondiente a.

Siguiente x

Conector final

Si lo haces así no habrá problema