Disregard posting your workbook.

Let's try a formula instead of the macro.

If you don't have a header in A1, paste the following formula in A1. If you do have a
header, then paste the formula in A2.

If A1 : =IF(ISBLANK(B1)," ",COUNTA($B$1:B1))

If A2 : =IF(ISBLANK(B2)," ",COUNTA($B$2:B2))

Once you have the formula in the cell, click on the cell and a small dot will appear
in the lower right hand corner of the cell. Hover your cursor over that tiny black
dot until the cursor becomes a cross symbol. While it remains the cross, double
click the dot. The formula should auto-fill all the cells in Col A that are adjacent
to a cell in Col B that has some data.

Be sure to delete the macro from the worksheet module.