VBA- Copy and paste rows if condition is met

Good afternoon, excel experts!

I would like to have a macro that can search column D (deductibles) for all the non-zero values. Then insert an empty row immediately below, copy the deductible amount from column D into column C and turn it into a negative number. Copy down the company number, work order number and formulas in column F as well. Delete the entire column D.


Example:

Before:

Column A Column B Column C Column D Column F
Row 1 Company# Work Order# Amount Deductible
Row 2 1 23632 $3250 $250 =TRIM(A2&"."&B2&"."&C2)
Row 3 1 23638 $4250 $0 =TRIM(A3&"."&B3&"."&C3)
Row 4 2 23642 $5250 $0 =TRIM(A4&"."&B4&"."&C4)
Row 5 2 23657 $6250 $0 =TRIM(A5&"."&B5&"."&C5)

After:

Column A Column B Column C Column D
Row 1 Company# Work Order# Amount
Row 2 1 23632 $3250 =TRIM(A2&"."&B2&"."&C2)
Row 3 1 23632 -$250 =TRIM(A3&"."&B3&"."&C3)
Row 4 1 23638 $4250 =TRIM(A4&"."&B4&"."&C4)
Row 5 2 23642 $5250 =TRIM(A5&"."&B5&"."&C5)
Row 6 2 23657 $6250 =TRIM(A6&"."&B6&"."&C6)

I have read a lot of posts but only managed to insert blank rows. I'd appreciate any help!

See if you can use this.

Please Login or Register  to view this content.

Originally Posted by ANGIE90

OMG

Thank you so much! It works like magic!!

You're welcome
Regards, JLG