Combine Private Sub Worksheet_Change(ByVal Target As Range) VBA Code on same worksheet

I'm new to writing VBA code. I have been able to write the 2 codes below that do work if I only use one of the codes on a worksheet. I would like to combine the 2 codes on the same worksheet, but I have not figured out how to make them both work at the same time. Please help me in combining the 2 codes. Thanks for your help.

‘ First Code

Please Login or Register  to view this content.

‘ Second Code

Please Login or Register  to view this content.

I was able to find a solution to combine the codes.

Hi, how did you do this?