VBA codes to convert number value in column D to negative based on corresponding Text in column B

[Sean15]

Can someone post VBA codes to convert number value in column D to negative if corresponding text in column B contains the word Credit or Payment.

Book1
	A	B	C	D	E
1	Date	Description	Class	Cost	Cost to date
2	07/01/23	Charge - RUBS	Debra	24.49	(2,285.85)
3	07/01/23	Credit - Valet Trash -	Debra	(9.07)	(2,310.34)
4	06/02/23	Payment - eCheck	Mike	(1,117.97)	(2,301.27)
5	06/01/23	Credit - RUBS - Electric -	Debra	(70.09)	(1,183.30)
6	06/01/23	Charge - RUBS - Electric -	Debra	32.57	(1,113.21)
7	06/01/23	Credit - Valet	Debra	(25.58)	(1,145.78)
8	05/02/23	Payment - eCheck	Mike	(1,132.58)	(1,120.20)
9	05/01/23	Charge - RUBS	Debra	12.38	12.38
Sheet1

Cell Formulas
Range	Formula
E2:E9	E2	=E3+D2

Thank you.

 

[Peter_SSs]

You're welcome. Thanks for the follow-up.

 

[Sean15]

Hi:
The VBA code in post #9 returns the required values based on the worksheet layout in post #1, but the worksheet layout has changed. Column B is now column D, and column D is now column E. Additionally, there is no longer a need to evaluate for "Payment." Could you update the code to reflect the new worksheet layout? Thank you for your help.

 

[Sean15]

Could someone update VBA code? Thank you.