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!