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

%3CLINGO-SUB%20id%3D%22lingo-sub-2044187%22%20slang%3D%22en-US%22%3EExcel%20VBA%20macro-Novice-correct%20macro-number%20rows%20in%20a%20column%3C%2FLINGO-SUB%3E%3CLINGO-BODY%20id%3D%22lingo-body-2044187%22%20slang%3D%22en-US%22%3E%3CP%3EI%20am%20a%20novice%20on%20this%20site%20and%20Excel%20VBA%20within%20macros.%3C%2FP%3E%3CP%3ETrying%20to%20finish%20the%20macro%20without%20errors.%20Using%20pick%20button%20to%20run%20the%20macro.%3C%2FP%3E%3CP%3E%3CSPAN%20class%3D%22lia-inline-image-display-wrapper%20lia-image-align-inline%22%20image-alt%3D%22SAckerman_0-1610125363958.png%22%20style%3D%22width%3A%20400px%3B%22%3E%3CIMG%20src%3D%22https%3A%2F%2Ftechcommunity.microsoft.com%2Ft5%2Fimage%2Fserverpage%2Fimage-id%2F244930i758FC89FE47E422A%2Fimage-size%2Fmedium%3Fv%3D1.0%26amp%3Bpx%3D400%22%20role%3D%22button%22%20title%3D%22SAckerman_0-1610125363958.png%22%20alt%3D%22SAckerman_0-1610125363958.png%22%20%2F%3E%3C%2FSPAN%3E%3C%2FP%3E%3CP%3EFill%20in%20the%20yellow%20column%20with%20quantity%2C%20math%20is%20done%20with%20columns%20B10*G10%3D%20in%20H10%3C%2FP%3E%3CP%3ENext%20sheet%3C%2FP%3E%3CP%3E%3CSPAN%20class%3D%22lia-inline-image-display-wrapper%20lia-image-align-inline%22%20image-alt%3D%22SAckerman_1-1610125680297.png%22%20style%3D%22width%3A%20400px%3B%22%3E%3CIMG%20src%3D%22https%3A%2F%2Ftechcommunity.microsoft.com%2Ft5%2Fimage%2Fserverpage%2Fimage-id%2F244931iC8DBCB9F8C59357B%2Fimage-size%2Fmedium%3Fv%3D1.0%26amp%3Bpx%3D400%22%20role%3D%22button%22%20title%3D%22SAckerman_1-1610125680297.png%22%20alt%3D%22SAckerman_1-1610125680297.png%22%20%2F%3E%3C%2FSPAN%3E%3C%2FP%3E%3CP%3EMove%20all%20rows%20which%20have%20B%20column%20greater%20than%200%20-%20all%20works%20fine%3C%2FP%3E%3CP%3EStart%20of%20macro%20works%20fine%20-%20remove%20all%20blank%20rows%20if%20Column%20B%20is%20blank.%3C%2FP%3E%3CP%3EThe%20problem%20is%20to%20renumber%20column%20A%20rows%20after%20all%20blank%20rows%20are%20deleted.%3C%2FP%3E%3CP%3EThis%20is%20what%20I%20want%20the%20result%20to%20be%3A%3C%2FP%3E%3CP%3E%3CSPAN%20class%3D%22lia-inline-image-display-wrapper%20lia-image-align-inline%22%20image-alt%3D%22SAckerman_2-1610126103954.png%22%20style%3D%22width%3A%20400px%3B%22%3E%3CIMG%20src%3D%22https%3A%2F%2Ftechcommunity.microsoft.com%2Ft5%2Fimage%2Fserverpage%2Fimage-id%2F244932i1B45B92EDA2A3C8B%2Fimage-size%2Fmedium%3Fv%3D1.0%26amp%3Bpx%3D400%22%20role%3D%22button%22%20title%3D%22SAckerman_2-1610126103954.png%22%20alt%3D%22SAckerman_2-1610126103954.png%22%20%2F%3E%3C%2FSPAN%3E%3C%2FP%3E%3CP%3EHere%20is%20the%20current%20macro%3A%3C%2FP%3E%3CDIV%20class%3D%22mceNonEditable%20lia-copypaste-placeholder%22%3E%26nbsp%3B%3C%2FDIV%3E%3CP%3ECan't%20seem%20to%20paste.%20Will%20attach%20file.%3C%2FP%3E%3CP%3ENote%3A%20Excel%20version%202010%3C%2FP%3E%3CP%3EThanks%20in%20advance%2C%3C%2FP%3E%3CP%3Efrom%20Frustrated%3C%2FP%3E%3CDIV%20class%3D%22mceNonEditable%20lia-copypaste-placeholder%22%3E%26nbsp%3B%3C%2FDIV%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CDIV%20class%3D%22mceNonEditable%20lia-copypaste-placeholder%22%3E%26nbsp%3B%3C%2FDIV%3E%3CDIV%20class%3D%22mceNonEditable%20lia-copypaste-placeholder%22%3E%26nbsp%3B%3C%2FDIV%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3C%2FLINGO-BODY%3E%3CLINGO-SUB%20id%3D%22lingo-sub-2044699%22%20slang%3D%22en-US%22%3ERe%3A%20Excel%20VBA%20macro-Novice-correct%20macro-number%20rows%20in%20a%20column%3C%2FLINGO-SUB%3E%3CLINGO-BODY%20id%3D%22lingo-body-2044699%22%20slang%3D%22en-US%22%3E%3CP%3E%3CA%20href%3D%22https%3A%2F%2Ftechcommunity.microsoft.com%2Ft5%2Fuser%2Fviewprofilepage%2Fuser-id%2F917681%22%20target%3D%22_blank%22%3E%40SAckerman%3C%2FA%3E%26nbsp%3BPlease%20let%20me%20know%20if%20this%20is%20in%20the%20wrong%20location.%20I%20have%20left%20this%20running%20all%20day%2C%20hoping%20to%20get%20a%20hit.%3C%2FP%3E%3C%2FLINGO-BODY%3E
New Contributor

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.

SAckerman_0-1610125363958.png

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

Next sheet

SAckerman_1-1610125680297.png

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:

SAckerman_2-1610126103954.png

Here is the current macro:

 

Can't seem to paste. Will attach file.

Note: Excel version 2010

Thanks in advance,

from Frustrated

 

 

 
 

 

 

1 Reply

@SAckerman Please let me know if this is in the wrong location. I have left this running all day, hoping to get a hit.