Macro for Automatic Row Insertion

Working on some automation for my company’s shipping data and was looking for a little Macro help. A test file has been attached.

Basically, what I want to do is for each row starting on Row 3, the Macro would check the number in the corresponding cell under Column G. If the number is 1, the next row would be checked. If the number is more than 1, the Macro would automatically insert a number of rows equal to the number in the cell minus one (taking Row 4 of the sample file, the number of pieces equals 5 so four rows would be inserted beneath Row 4). Then it would go to the next row which has a filled number in it and repeat the process all the way to the end of the sheet.

The Stop condition for the row insertion portion of the Macro should be when Excel detects that in the corresponding cell of Column G, the value equals 0.

I hope I explained this properly. If not, let me know and I'll answer what questions I can.

You can use this code.

Please Login or Register  to view this content.

I tried that code on my file but it did not give me the result I wanted. In the attached file, I ran the code but it did not insert rows at every instance where the piece numbers were greater than 1. My main concern is that the amount of shipping data will be varied where one day we may be seeing five shipments that are 2 pieces and then another day, we see nine shipments that are 2 pieces. And then there are other shipments which may be 3 pieces or 4 pieces and it really depends on the data sample I obtain. Isn't there a way for the Macro to simply recognize the value in Column G and then insert a row based on the conditions I described previously?