Create Sub routine that translates values

We’re using a complicated macro to clean and format data into several sheets. I’d like to add the following functionality to the existing macro using vba. I’d like to accomplish this functionality solely in the VBA code and not have to use another sheet or copy additional columns and rows with the values. I would like to accomplish this using and IF THEN ELSE statement in the vba code.

IF B2 = “Giving” and D2 = “general fund” then D2 changes to 0501
ELSE IF
B2 = “Giving” and D2 = “global fund” then D2 becomes 0502
ELSE IF
B2=”Giving” and D2 =”” then D2 becomes 0501
ELSE IF
B2 =”Athletics” and D2 = “Friends of Athletics” then D2 becomes 0601
ELSE IF
B2 =”Athletics” and D2 = “” then D2 becomes “”
Etc.
I’ll have about 20 different options I’ll add.

Thanks for your help.