Macro to insert/delete partial rows on another sheet based on cell value without filtering

Bump no response

Bump no response

Maybe this will help.

SHEET2 has five columns headers:

Add: ProductOptions Discount List Net Units

There are five rows of data under the above column headers. The user will add a "1" to the "Add" column if he wants the product option that is in that row. I'm new to VBA and need a macro to perform the following:

1.) Look in sheet2, range A4:A:8 and count the number of rows with a "1" in them. (Let's say two rows for this example.)
2.) Insert that number of rows in Sheet1 at Row 30. (two)
3.) Copy (in the selected two rows only) the values from the "Add", ProductOptions", "Net", & "Units" columns.
4.) Paste the data in Sheet1, in sequential order, starting at cell A30. (no blank rows or columns.

Here is what Sheet1 would look like after the insertion.

ColA ColB ColC ColD
1 Drumstick ADD: $ 14 Net Ea.
1 Half Gallon of vanilla ADD: $ 23 Net Ea.

If a "1" is removed in one of the rows in range A4:A:8 on Sheet2, then I would like that row (along with the data) to be deleted from Sheet1. I would prefer to have this automatically done but if a macro button needs to be clicked for updating then that would be ok.

Hope this helps and please let me know if this is unclear.

Thanks in advance for your help!