Excel VBA macro-Novice-correct macro-number rows in a column

I am a novice on this site and Excel VBA within macros.

Trying to finish the macro without errors. Using pick button to run the macro.

Fill in the yellow column with quantity, math is done with columns B10*G10= in H10

Next sheet

Move all rows which have B column greater than 0 - all works fine

Start of macro works fine - remove all blank rows if Column B is blank.

The problem is to renumber column A rows after all blank rows are deleted.

This is what I want the result to be:

Here is the current macro:

Can't seem to paste. Will attach file.

Note: Excel version 2010

Thanks in advance,

from Frustrated